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

gy8654 2001-03-26 09:05:00
...全文
107 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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"

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧