探索Windows API编程:文件复制与函数调用的挑战与解决方案
1. 文件复制功能的初步测试
在进行文件复制操作时,需要将相关变量声明为 Long 类型,并使用VB代码从指针中提取字符串信息。最初的代码测试中,在 DoACopy 函数的 Call SHFreeNameMappings 行设置了断点,以下是该函数的代码:
' Perform a copy operation
Private Sub DoACopy()
Dim sh As SHFILEOPSTRUCT
Dim src$, dest$
Dim res&
src$ = GetNullsString(FileList)
dest$ = "A:\" & Chr$(0) & Chr$(0)
sh.hwnd = hwnd
sh.wFunc = FO_COPY
sh.pFrom = src$
sh.pTo = dest$
sh.fFlags = FOF_RENAMEONCOLLISION Or FOF_WANTMAPPINGHANDLE
sh.hNameMappings = 0
res = DoTheShellCall(sh, "Files are being copied to floppy")
If sh.hNameMappings <> 0 Then
' Can you read the file names here?
Ca
超级会员免费看
订阅专栏 解锁全文

被折叠的 条评论
为什么被折叠?



