用什么语句将整个文件夹copy 到另一盘符中

[kevenzhang]

[fraser01]

用 Shell "xcopy.exe SForlder DForlder/s/e"

[dbcontrols]

/y

[kevenzhang]

到是不是COPY FILE OR DIRECTORY 便停止了，怎办？

[kevenzhang]

这种方法是不行的，无法判断何时 COPY OVER

[mahongxi]

递归调用FileCopy();

[kevenzhang]

再想一下，应该有好办法的

[fraser01]

xcopy 没写对，
xcopy SForlder\. DForlder\. /s/e
不会提示的

[yangzhaoyu]

Private Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_COPY = &H2

Private Const FOF_ALLOWUNDO = &H40

Private Const FOF_NOCONFIRMMKDIR = &H200





Private Sub Command1_Click()
Dim SHFileOp As SHFileOperation
SHFileOp.wfunc = FO_COPY
SHFileOp.pfrom = "c\temp\*.*"
SHFileOp.pto = "c\temp2\*.*"
shefilop.flags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
SHFileOperation SHFileOp
End Sub

[enmity]

补充一下楼上的 :)

Public Enum FO_Operation
FO_MOVE = 1
FO_COPY = 2
FO_DELETE = 3
FO_RENAME = 4
End Enum

Public Enum FOFlags
FOF_MULTIDESTFILES = &H1 'Destination specifies multiple files
FOF_SILENT = &H4 'Don't display progress dialog
FOF_RENAMEONCOLLISION = &H8 'Rename if destination already exists
FOF_NOCONFIRMATION = &H10 'Don't prompt user
FOF_WANTMAPPINGHANDLE = &H20 'Fill in hNameMappings member
FOF_ALLOWUNDO = &H40 'Store undo information if possible
FOF_FILESONLY = &H80 'On *.*, don't copy directories
FOF_SIMPLEPROGRESS = &H100 'Don't show name of each file
FOF_NOCONFIRMMKDIR = &H200 'Don't confirm making any needed dirs
End Enum

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long ' only used if FOF_SIMPLEPROGRESS
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private op As SHFILEOPSTRUCT

public sub FolderCopy (sSourcePath as string, sDestPath as string)

with Op
.wFunc = FO_COPY
.pfrom = "c:\temp\*.*"
.pto = "d:\temp2\*.*"
.flags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
end with

SHFileOperation SHFileOp

end sub

[enmity]

对不起，我早知道手写会出错的了，现在纠正一下：
public sub FolderCopy (sSourcePath as string, sDestPath as string)

with Op
.wFunc = FO_COPY
.pfrom = sSourcePath
.pto = sDestPath
.flags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
end with

SHFileOperation SHFileOp

end sub

[lbq168]

Dim SourceFile, DestinationFile

If File2.ListCount > 0 Then
If Right(Dir1.Path, 1) <> "\" Then
SourceFile = Dir1.Path & "\" & File2.FileName
DestinationFile = Text4.Text & "\" & File2.FileName

FileCopy SourceFile, DestinationFile
StatusBar1.Panels.Item(2) = "复制文件完毕!"
Text8.Text = File2.FileName & "文件复制完毕!"
File2.Refresh
File1.Refresh
StatusBar1.Panels.Item(1) = "OK"
Else
SourceFile = Dir1.Path & File2.FileName
DestinationFile = Text4.Text & File2.FileName

FileCopy SourceFile, DestinationFile
StatusBar1.Panels.Item(2) = "复制文件完毕!"
Text8.Text = File2.FileName & "文件复制完毕!"
File2.Refresh
File1.Refresh
StatusBar1.Panels.Item(1) = "OK"
End If

[lcooky]

为什么不使用FileSystem Object呢，这样多简单呀。呵呵

[kevenzhang]

enmity(灵感之源)：
应为 shfileoperation op吧？
我是在COPY OVER再继续做其他的事，不能同步

[enmity]

楼上，呵呵，我都说了，手写容易出错的