中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段代码运行的结果为何什么都没有

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『楼主』: 请vbs高手分析这段代码运行的结果为何什么都没有

Function m(n)
Dim fso,f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("D:\a.txt")
f.WriteLine "I love you,Do you love me??"
f.Close
Set m=f.CopyFile("D:\a.txt")
n=Inputbox("Please enter a number:")
For a=1 to n
m=m+a
Next
Msgbox "已复制&n&个文件。"
End Function

上面的代码根本起不到复制同一个文件的作用.那么怎样用vbs复制几百甚至上千个相同的文件呢??愿高手尽快回复!!!

2007-4-28 07:59

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 2 楼』:

Dim fso,f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("D:\a.txt")
f.Write "I love you,Do you love me??"

fso.CopyFile "D:\a.txt","c:\"

2007-4-28 08:33

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 3 楼』:

1。就只有一个a.txt ，所以 Msgbox "已复制&n&个文件。" 不需要
2。Function m(n) 不需要
3。如果要复制多个文件，可以用统配符，比如 ,*.txt 它是指将多个文件复制到一个文件夹内，不是将一个文件复制到多个文件夹或者复制成多个文件。
4。FileSystemObject.CopyFile
5。Sorry Idon't love you !

2007-4-28 08:37

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 4 楼』:

周兄，你好。关于用vbs复制许多”相同“的文件我想了很久，仍然不知所措。请你帮我好好想想！！！

2007-4-29 05:29

zhoushijay
高级用户

Autowalk

积分 845
发帖 375
注册 2007-3-3
状态离线

『第 5 楼』:

我也想不通你想要做什么，一个文件夹内能存在多个同名的文件吗？

2007-4-29 05:39

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 6 楼』:

调用系统的复制吧，会自动改名字，或者你用随机数或者1~1000这样的名字命名。

2007-4-29 06:36

stornager
中级用户

scriptlover

积分 328
发帖 131
注册 2007-3-25
状态离线

『第 7 楼』:

请问slore兄怎样调用系统的复制？？？

2007-4-29 11:59

wudixin96
银牌会员

积分 1928
发帖 931
注册 2007-1-6
状态离线

『第 8 楼』:

问题就出在

Set m=f.CopyFile("D:\a.txt")

应该为

Set m=fso.CopyFile("D:\a.txt")

或者

Set m=f.Copy("D:\a.txt")

2007-4-29 12:07

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: