7453
社区成员
- 主页
小问题， 我不会。 怎么执行(copy c:\abc.txt d:\abc.txt)
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
turbo 2001-03-27
filecopy "c:\abc.txt","d:\abc.txt",很简单啊
htsoft 2001-03-26
我全你介绍一个复制文件时有动画的办法，不错呀。下面是源代码，一定要给分呀，哈哈：）
1\先声明API函数，就是：shfileoperation 以及类型：shfileopstruct 以及一个常数,就是：fo_copy=&H2
在API浏览器中都可找到，详细内容不写了。
2\然后用一下代码执行文件复制：
dim lResult as long,shf as shfileopstruct
shf.hwnd=hwnd
shf.wfunc=fo_copy
shf.pfrom="c:\abc.txt"
shf.pto="d:\abc.txt"
lResult=shfileoperation(shf)
1\先声明API函数，就是：shfileoperation 以及类型：shfileopstruct 以及一个常数,就是：fo_copy=&H2
在API浏览器中都可找到，详细内容不写了。
2\然后用一下代码执行文件复制：
dim lResult as long,shf as shfileopstruct
shf.hwnd=hwnd
shf.wfunc=fo_copy
shf.pfrom="c:\abc.txt"
shf.pto="d:\abc.txt"
lResult=shfileoperation(shf)
playyuer 2001-03-26
Private Sub Command1_Click()
'执行dos命令
Shell "command.com /c copy c:\abc.txt d:\abc.txt", vbMinimizedNoFocus
End Sub
'执行dos命令
Shell "command.com /c copy c:\abc.txt d:\abc.txt", vbMinimizedNoFocus
End Sub
Seedling 2001-03-26
FileCopy "c:\abc.txt" "d:\abc.txt"
