问题要求:用vbs代码实现请求输入两个文件夹的地址 把其中一个文件夹内的所有文件移动到另一个文件夹!我自己写的只能一个文件一个文件移动 不能全部移动 下面是我自己写的代码
Dim path1
Dim path2
set fs = createobject("scripting.filesystemobject")
path1 = InputBox ( " Please enter the address of the file you want to move : " , " SourceFile " , " please input " )
path2 = InputBox ( " Please enter the address you want to move to : " , " DestinationFolder " , " please input " )
fs.movefile Path1, Path2
MsgBox " Move successful "
vbs对文件夹内所有文件的移动
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
5条回答 默认 最新
- CSDN专家-showbo 2022-04-02 13:38关注
用fso读取目标文件夹下的所有文件,然后循环移动就行了,示例代码如下
Dim SourceFolder Dim DestinationFolder set fs = createobject("scripting.filesystemobject") SourceFolder = InputBox ( " Please enter the address of the file you want to move : " , " SourceFolder " , " please input " ) DestinationFolder = InputBox ( " Please enter the address you want to move to : " , " DestinationFolder " , " please input " ) if right(DestinationFolder,1)<>"\" then DestinationFolder=DestinationFolder&"\" set folder=fs.getfolder(SourceFolder) set files=folder.files'获取所有文件 for each file in files arr=split(file,"\") filename=arr(ubound(arr)) fs.MoveFile file,DestinationFolder&filename next set folder=nothing set files=nothing set fs=nothing MsgBox " Move successful "
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 3无用
悬赏问题
- ¥20 机器学习能否像多层线性模型一样处理嵌套数据
- ¥20 西门子S7-Graph,S7-300,梯形图
- ¥50 用易语言http 访问不了网页
- ¥50 safari浏览器fetch提交数据后数据丢失问题
- ¥15 matlab不知道怎么改,求解答!!
- ¥15 永磁直线电机的电流环pi调不出来
- ¥15 用stata实现聚类的代码
- ¥15 请问paddlehub能支持移动端开发吗?在Android studio上该如何部署?
- ¥20 docker里部署springboot项目,访问不到扬声器
- ¥15 netty整合springboot之后自动重连失效