VB怎样像windows那样复制和粘贴文件?
展开全部
Set FSO = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("Shell.Application")
myfile = "D:\迅雷下载\人在囧途.RMVB" '源文件路径
newpath = "F:\临时" '目标文件夹
sh.NameSpace(FSO.GetParentFolderName(myfile)).ParseName(FSO.GetFileName(myfile)).InvokeVerb "复制(&C)"
sh.NameSpace(newpath).Self.InvokeVerb "粘贴(&P)"
'对于小于几十MB的文件，因为复制时间太短，看不到明显效果。
Set sh = CreateObject("Shell.Application")
myfile = "D:\迅雷下载\人在囧途.RMVB" '源文件路径
newpath = "F:\临时" '目标文件夹
sh.NameSpace(FSO.GetParentFolderName(myfile)).ParseName(FSO.GetFileName(myfile)).InvokeVerb "复制(&C)"
sh.NameSpace(newpath).Self.InvokeVerb "粘贴(&P)"
'对于小于几十MB的文件，因为复制时间太短，看不到明显效果。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
