问题要求:用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无用
悬赏问题
- ¥15 安卓adb backup备份应用数据失败
- ¥15 eclipse运行项目时遇到的问题
- ¥15 关于#c##的问题:最近需要用CAT工具Trados进行一些开发
- ¥15 南大pa1 小游戏没有界面,并且报了如下错误,尝试过换显卡驱动,但是好像不行
- ¥15 没有证书,nginx怎么反向代理到只能接受https的公网网站
- ¥50 成都蓉城足球俱乐部小程序抢票
- ¥15 yolov7训练自己的数据集
- ¥15 esp8266与51单片机连接问题(标签-单片机|关键词-串口)(相关搜索:51单片机|单片机|测试代码)
- ¥15 电力市场出清matlab yalmip kkt 双层优化问题
- ¥30 ros小车路径规划实现不了,如何解决?(操作系统-ubuntu)