IT日志之开发：VBS文件

Dim fso
Set fso=Createobject("Scripting.FilesyStemObject")
fso.CopyFile "C:\Windows\System32\cmd.exe","E:\"
Set fso=Nothing

Dim fso, filepath
Set fso=Createobject("Scripting.FilesyStemObject")
filepath="C:\Windows\System32\cmd.exe"
If fso.FileExists(E:\cmd.exe) Then
MsgBox "文件已存在"
Else 
fso.MoveFile filepath,"E:\"
End if
Set fso=Nothing

Dim fso, filepath,f
Set fso=Createobject("Scripting.FilesyStemObject")
filepath="C:\Windows\System32\cmd.exe"
Set f=fso.GetFile(filepath)
'f.Copy(),f.move() 也可以重命名文件
f.Name="运行命令狂.exe"
Set fso=Nothing

Dim fso, filepath,f
Set fso=Createobject("Scripting.FilesyStemObject")
filepath="e:\a.txt"
Set f=fso.CreateTextFile(filepath)
For i=1 To 100
f.WriteLine i
Next
f.Close
Set fso=Nothing