小问题， 我不会。 怎么执行(copy c:\abc.txt d:\abc.txt)

[gy8654]

[Seedling]

FileCopy "c:\abc.txt" "d:\abc.txt"

[playyuer]

Private Sub Command1_Click()
'执行dos命令
Shell "command.com /c copy c:\abc.txt d:\abc.txt", vbMinimizedNoFocus
End Sub

[htsoft]

我全你介绍一个复制文件时有动画的办法，不错呀。下面是源代码，一定要给分呀，哈哈：）

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)

[turbo]

filecopy "c:\abc.txt","d:\abc.txt",很简单啊