7,763
社区成员
发帖
与我相关
我的任务
分享vb中文件拷贝问题
p = p & "\Library"
p1 = p & "\1_Library"
MsgBox(p)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder p , p1
为什么这么写不行呢
p1 = p & "\1_Library"
MsgBox(p)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder p , p1
为什么这么写不行呢
...全文
请发表友善的回复…
发表回复
threenewbee 2017-09-30
- 打赏
- 举报
拷贝文件还是拷贝文件夹？另外，在一些系统中fso被禁用了，特别是山寨盗版的windows系统。
vb自带的拷贝是filecopy语句
舉杯邀明月 2017-09-28
- 打赏
- 举报
“错误的文件名或号码”，你确定是这个错误？
你的“源文件夹”中是否包含没有“读文件”（实际可能是没有任何访问权限）的文件或文件夹？
另外就是，“目标文件夹”你是否有写入的权限？
你的“源文件夹”中是否包含没有“读文件”（实际可能是没有任何访问权限）的文件或文件夹？
另外就是，“目标文件夹”你是否有写入的权限？
「已注销」 2017-09-28
- 打赏
- 举报
最后一行13字符
「已注销」 2017-09-28
- 打赏
- 举报
最后一行 13字节处
「已注销」 2017-09-28
- 打赏
- 举报
p1 = p & "\PEDC3_Library"
p2 = p & "\PEDC3_1_Library"
MsgBox(p)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder p1 , p2
p是我动态获取的程序启动路径
改过了之后报 错误的文件名或号码
大神帮帮忙啊
赵4老师 2017-09-28
- 打赏
- 举报
人家文件有扩展名吧。
舉杯邀明月 2017-09-27
- 打赏
- 举报
它提示什么错误？
应该是不能把某目录拷到“自己子目录”中去吧！
你把“目标路径”换个地方啊，干吗指定在源目录之下！
你把“目标路径”换个地方啊，干吗指定在源目录之下！
