返回列表 发帖
succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-4-7 21:42 | 只看该作者

[问题求助] [已解决]高人指点下怎么才能复制VBS自身的下级目录里的文件？

本帖最后由 succeed909 于 2015-4-8 09:53 编辑 
  1. Set Fso = CreateObject("Scripting.FileSystemObject")

  2. Dim A,File1,File2

  3. File1 = ""

  4. File2 = ""

  5. A = MsgBox("",3,"") 

  6. If A = 6 Then

  7. Fso.CopyFile File1,File2,True

  8. ElseIf A = 7 Then

  9. Fso.CopyFile File2,File1,True

  10. Else
复制代码
以上的代码只能复制和VBS自身目录下的文件，要怎么更改才能复制VBS自身的下级目录里的文件？
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2015-4-7 22:11 | 只看该作者
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "d:\test", "e:\"

直接复制文件夹行不行？

QQ 20147578

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
3楼
发表于 2015-4-7 22:18 | 只看该作者
回复 2# czjt1234


  是想复制下级文件夹内的某一文件到另一个文件夹内。

TOP

czjt1234

Rank: 6Rank: 6

帖子
1115 
积分
1632 
技术
116  
捐助
0  
注册时间
2010-4-30 
4楼
发表于 2015-4-7 22:23 | 只看该作者
那你的代码直接就可以啊

指定路径和文件名即可

QQ 20147578

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
5楼
发表于 2015-4-7 22:49 | 只看该作者
回复 4# czjt1234


    指定路径不行的！如File1=“ABC\A.TXT"这样就提示找不到文件。

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
6楼
发表于 2015-4-7 23:11 | 只看该作者
回复 5# succeed909

使用绝对路径或是File1=".\ABC\A.TXT"
1

评分人数

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
7楼
发表于 2015-4-8 01:22 | 只看该作者
好的，我早上试试！

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
8楼
发表于 2015-4-8 01:22 | 只看该作者
好的，我早上试试！

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
9楼
发表于 2015-4-8 09:54 | 只看该作者
回复 6# pcl_test


    谢谢！

TOP

返回列表