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

gy8654 2001-03-26 09:05:00
...全文
67 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过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)

回复
playyuer 2001-03-26
Private Sub Command1_Click()
'执行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"
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告