怎样中止一个复制文件的进程呢？
我用filecopy命令复制大约50M的文件，我想中止他怎么办？ 问题点数：20、回复次数：6Top
1 楼yuanxy（梦想鸭）回复于 2002-03-11 23:04:44 得分 0
?Top
2 楼gameboy999（-'_'-）回复于 2002-03-12 00:10:10 得分 5
替换它的默认回调函数,在回调函数中可以使用prograss bar指示或者中断拷贝Top
3 楼yuanxy（梦想鸭）回复于 2002-03-12 14:43:59 得分 0
给出实例好吗？Top
4 楼gameboy999（-'_'-）回复于 2002-03-12 19:19:56 得分 0
@@...没时间呀,去Codeguru自己找找呀Top
5 楼yuanxy（梦想鸭）回复于 2002-03-16 08:52:23 得分 0
在提一下Top
6 楼blp（★★★）回复于 2002-03-18 10:45:32 得分 0
用这个API函数，完全用WINDOWS拷贝文件的进度条。
Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Top
7 楼blp（★★★）回复于 2002-03-18 10:52:37 得分 15
常量函数结构声命
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 String
End Type
Declare Function SHFileOperation Lib "shell32" (lpFileOp As SHFILEOPSTRUCT) As Long
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_ALLOWUNDO = &H40
下面是如何将C盘根目录下的Readme.txt文件复制到D盘根目录下
Dim xFile As SHFILEOPSTRUCT
xFile.pFrom = "C:\readme.txt"
xFile.pTo = "D:\"
xFile.fFlags = FOF_ALLOWUNDO
xFile.wFunc = FO_COPY
xFile.hwnd = Me.hwnd
If SHFileOperation(xFile) Then
End IfTop
