shfileoperation

SHFileOperation是一種外殼函式，用它可以實現各種檔案操作，如檔案的拷貝、刪除、移動等，該函式使用起來非常簡單，它只有一個指向SHFILEOPSTRUCT結構的參數。使用SHFileOperation（）函式時只要填寫該專用結構--SHFILEOPSTRUCT，告訴Windows執行什麼樣的操作，以及其它重要信息就行了。SHFileOperation（）的特別之處在於它是一個高級外殼函式，不同於低級檔案處理。當調用SHFileOperation操作檔案時，相應的外殼拷貝處理器（如果有的話）被調用。

基本介紹

• 中文名：shfileoperation
• 第一條：概況
• 第二條：Delphi
• 第三條：VC

概況

函式功能描述:檔案操作，與 Shell 的動作相同.

Delphi

: =====================================

functionCopyDir(const SourceDir,DestDir:string):Boolean;

var

lpFileOp: TSHFileOpStruct;

begin

withlpFileOpdo

begin

Wnd := Application.Handle;

wfunc := FO_COPY;

pFrom := pchar(SourceDir);

pTo := pchar(DestDir);

fFlags := FOF_ALLOWUNDO;

hNameMappings :=nil;

lpszProgressTitle :=nil;

fAnyOperationsAborted :=false;

end;Result:= (SHFileOperation(lpFileOp) = 0);end;usesShellApi;//

VC

=============================================

函式原型：

int SHFileOperation( _Inout_ LPSHFILEOPSTRUCT lpFileOp);

需要的庫檔案:

#include <Shlwapi.h>

#pragma comment (lib,"Shlwapi.lib")

參數

lpFileOp : 一個指向SHFILEOPSTRUCT結構的指針

返回值:

返回0成功,

SHFILEOPSTRUCT結構說明

typedef struct _SHFILEOPSTRUCT {

HWND hwnd;

UINT wFunc;

PCZZTSTR pFrom;

PCZZTSTR pTo;

FILEOP_FLAGS fFlags;

BOOL fAnyOperationsAborted;

LPVOID hNameMappings;

PCTSTR lpszProgressTitle;

} SHFILEOPSTRUCT, *LPSHFILEOPSTRUCT;

hwnd; //父視窗句柄, 0為桌面

wFunc; 功能標識

FO_COPY 複製

FO_DELETE 刪除

FO_MOVE 移動

FO_RENAME 重命名

pFrom 源檔案或者源資料夾,(source file)

pTo 目的檔案或資料夾 (destination)

fFlags 控制檔案的標誌位

FOF_ALLOWUNDO 準許撤銷

FOF_CONFIRMMOUSE 沒有被使用,,,

FOF_FILESONLY

通配符的檔案名稱（ *.* ）只對檔案（不是資料夾）進行操作。

FOF_MULTIDESTFILES

The pTo member specifies multiple destination files (one for each source file in pFrom)

rather than one directory where all source files are to be deposited.

(不知道怎么翻譯過來,大家體驗一下精髓)

FOF_NOCONFIRMATION 不出現任何對話框

FOF_NOCONFIRMMKDIR 創建資料夾的時候不用確認

FOF_NO_CONNECTED_ELEMENTS

Version 5.0適用,,不移動連線檔案(connected files),只移動特定檔案

FOF_NOCOPYSECURITYATTRIBS

Version 4.71適用,,複製移動檔案的時候不複製安全屬性,而是為檔案指定新的安全屬性

FOF_NOERRORUI 如果發生錯誤, 不要 顯示對話框給用戶

FOF_NORECURSEREPARSE 沒有被使用

FOF_NORECURSION 不遞歸目錄

FOF_NO_UI

Windows Vista中,默默的進行操作，不給用戶呈現任何UI。

這相當於FOF_SILENT | FOF_NOCONFIRMATION | FOF_NOERRORUI

|FOF_NOCONFIRMMKDIR 。

FOF_RENAMEONCOLLISION 移動複製的時候如果名字重名,自動分配新名字

FOF_SILENT 不顯示進度條提示框

FOF_SIMPLEPROGRESS 顯示一個進度條,但不顯示單個檔案名稱,

FOF_WANTMAPPINGHANDLE

如果指定了FOF_RENAMEONCOLLISION,說明此時是在重命名，

分配一個名稱映射對象，其中包含他們的舊的和新的名字到hNameMappings成員。

如果不再使用,需要用SHFreeNameMappings釋放。

FOF_WANTNUKEWARNING

當一個檔案被永久刪除的時候,彈出警告框

===================

實例：

BOOL CopyDirFileAPI(CString strSrcPath, CString strDesPath)

{

//拷貝檔案

if (strSrcPath.GetAt(strSrcPath.GetLength()-1) == '\\' || strSrcPath.GetAt(strSrcPath.GetLength()-1) == '/')

{

strSrcPath = strSrcPath.Left(strSrcPath.GetLength()-1);

}

if (strDesPath.GetAt(strDesPath.GetLength()-1) == '\\' || strDesPath.GetAt(strDesPath.GetLength()-1) == '/')

{

strDesPath = strDesPath.Left(strDesPath.GetLength()-1);

}

char szFrom[MAX_PATH] = {0};

char szTo[MAX_PATH] = {0};

strSrcPath = strSrcPath+"\\*.*";

strcpy(szFrom, (LPCTSTR)strSrcPath);

szFrom[strSrcPath.GetLength()+1]='\0';

//strDes=strDes+"\\*.*";

strcpy(szTo,(LPCTSTR)strDesPath);

szTo[strDesPath.GetLength()+1]='\0';

int nOk=2000;

char strTitle[] = "正在拷貝檔案,請稍候..."; //進度條標題

SHFILEOPSTRUCT FileOp;

const char * From = szFrom;

const char * To = szTo;

FileOp.hwnd = this->m_hWnd;

FileOp.wFunc = FO_COPY; //執行檔案拷貝

FileOp.pFrom = From;

FileOp.pTo = To;

FileOp.fFlags = FOF_ALLOWUNDO | FOF_NOCONFIRMATION;

FileOp.hNameMappings = NULL;

FileOp.lpszProgressTitle = strTitle;

nOk = SHFileOperation(&FileOp);

if (FileOp.fAnyOperationsAborted) //防止出現低配置光碟機BUG

{

nOk=1;

}

if (nOk==1)

{

return false;

}

Sleep(200);

return true;

}

vb.

Public Structure SHFILEOPSTRUCT

Dim hwnd As IntPtr

Dim wFunc As Integer

Dim pFrom As String

Dim pTo As String

Dim fFlags As Short

Dim fAnyOperationsAborted As Integer

Dim hNameMappings As IntPtr

Dim lpszProgressTitle As String

End Structure

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer

======================

vb

Type SHFILEOPSTRUCT

hWnd As Long

wFunc As Long

pFrom As String '必須用 pFrom & vbNullChar & vbNullChar

pTo As String '同pFrom

fFlags As Integer

fAnyOperationsAborted As Boolean

hNameMappings As Long

lpszProgressTitle As String

End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

=======================

wFunc 可以為：

/FO_MOVE 0x0001 移動檔案

FO_COPY 0x0002 複製檔案

FO_DELETE 0x0003 刪除 檔案，只使用 pFrom

FO_RENAME 0x0004 檔案重命名

fFlags可以為：

FOF_MULTIDESTFILES 0x0001 //pTo 指定了多個目標檔案，而不是單個目錄

FOF_CONFIRMMOUSE 0x0002

FOF_SILENT 0x00044 // 不顯示一個進度對話框

FOF_RENAMEONCOLLISION 0x0008 // 碰到有牴觸的名字時，自動分配前綴

FOF_NOCONFIRMATION 0x0010 // 不對用戶顯示提示

FOF_WANTMAPPINGHANDLE 0x0020 // 填充 hNameMappings 欄位，必須使用 SHFreeNameMappings 釋放

FOF_ALLOWUNDO 0x0040 // 允許撤銷

FOF_FILESONLY 0x0080 // 使用 *.* 時, 只對檔案操作

FOF_SIMPLEPROGRESS 0x0100 // 簡單進度條，意味者不顯示檔案名稱。

FOF_NOCONFIRMMKDIR 0x0200 // 建新目錄時不需要用戶確定

FOF_NOERRORUI 0x0400 // 不顯示出錯用戶界面

FOF_NOCOPYSECURITYATTRIBS 0x0800 // 不複製 NT 檔案的安全屬性

FOF_NORECURSION 0x1000 // 不遞歸目錄

返回值：

函式成功返回 0 ，失敗返回非 0 。

例子：

1. 將 C:\Test.txt 拷貝到 D:\

SHFILEOPSTRUCT lpsh;

ZeroMemory(&lpsh,sizeof(lpsh));

lpsh.hwnd= HWND_DESKTOP;

lpsh.fFlags=FOF_NOCONFIRMATION|FOF_SIMPLEPROGRESS ;

lpsh.wFunc=FO_COPY; // FO_MOVE 則是移動

lpsh.pFrom= "C:\Test.txt";

lpsh.pTo = "D:\";

if( 0 != SHFileOperation(&lpsh))

{AfxMessageBox("複製檔案出錯,請檢查");return ;}

2. 刪除 D:\Test.txt

SHFILEOPSTRUCT lpsh;

ZeroMemory(&lpsh,sizeof(lpsh));

lpsh.hwnd= HWND_DESKTOP;

lpsh.fFlags=FOF_NOCONFIRMATION|FOF_SIMPLEPROGRESS ;

lpsh.wFunc=FO_DELETE;

lpsh.pFrom= "D:\Test.txt";

if( 0 != SHFileOperation(&lpsh))

{AfxMessageBox("刪除檔案出錯,請檢查");return ;}

3.重命名

SHFILEOPSTRUCT lpsh;

ZeroMemory(&lpsh,sizeof(lpsh));

lpsh.hwnd= HWND_DESKTOP;

lpsh.fFlags=FOF_NOCONFIRMATION|FOF_SIMPLEPROGRESS ;

lpsh.wFunc=FO_RENAME;

lpsh.pFrom= "D:\Test.txt";

lpsh.pTo = "D:\Test2.txt";

if( 0 != SHFileOperation(&lpsh))

{AfxMessageBox("重命名檔案出錯!");return ;}

4.VB

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_COPY = &H2

Public Const FOF_ALLOWUNDO = &H40

Public Sub ShellCopyFile(Source As String, Dest As String)

Dim result As Long

Dim fileop As SHFILEOPSTRUCT

With fileop

.hwnd = 0

.wFunc = FO_COPY

.pFrom = Source & vbNullChar & vbNullChar

.pTo = Dest & vbNullChar & vbNullChar

.fFlags = FOF_ALLOWUNDO

End With

result = SHFileOperation(fileop)

If result <> 0 Then

'Msgbox the error that occurred in the API.

MsgBox Err.LastDllError, vbCritical Or vbOKOnly

Else

If fileop.fAnyOperationsAborted <> 0 Then

MsgBox "Operation Failed", vbCritical Or vbOKOnly

End If

End If

End Sub