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复制几百甚至上千个相同的文件呢??愿高手尽快回复!!!作者: zhoushijay 时间: 2007-4-28 08:33 Dim fso,f
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("D:\a.txt")
f.Write "I love you,Do you love me??"