中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-04 10:04 		共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行
DOS批处理 & 脚本技术（批处理室） » 请vbs高手分析这段代码运行的结果为何什么都没有
可打印版本 　917 / 7
第1楼　stornager 发表于 2007-04-28 07:59
中级用户　发帖 131　积分 328
请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复制几百甚至上千个相同的文件呢??愿高手尽快回复!!!
第2楼　zhoushijay 发表于 2007-04-28 08:33
高级用户　发帖 375　积分 845
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:\"
第3楼　zhoushijay 发表于 2007-04-28 08:37
高级用户　发帖 375　积分 845
1。就只有一个a.txt ，所以 Msgbox "已复制&n&个文件。" 不需要
2。Function m(n) 不需要
3。如果要复制多个文件，可以用统配符，比如 ,*.txt 它是指将多个文件复制到一个文件夹内，不是将一个文件复制到多个文件夹或者复制成多个文件。
4。FileSystemObject.CopyFile
5。Sorry Idon't love you !
第4楼　stornager 发表于 2007-04-29 05:29
中级用户　发帖 131　积分 328
周兄，你好。关于用vbs复制许多”相同“的文件我想了很久，仍然不知所措。请你帮我好好想想！！！
第5楼　zhoushijay 发表于 2007-04-29 05:39
高级用户　发帖 375　积分 845
我也想不通你想要做什么，一个文件夹内能存在多个同名的文件吗？
第6楼　slore 发表于 2007-04-29 06:36
铂金会员　发帖 2,478　积分 5,212
调用系统的复制吧，会自动改名字，或者你用随机数或者1~1000这样的名字命名。
第7楼　stornager 发表于 2007-04-29 11:59
中级用户　发帖 131　积分 328
请问slore兄怎样调用系统的复制？？？
第8楼　wudixin96 发表于 2007-04-29 12:07
银牌会员　发帖 931　积分 1,928
问题就出在

应该为或者
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023