Create+File

来源：互联网发布：微信打开淘宝链接代码编辑：程序博客网时间：2024/05/18 17:01

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")

MyFile.Copy ("c:\windows\desktop\test2.txt")

Sub main
Dim fso, MyFile 'copy all file to specified folder. except folders.
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\ddd\*.*", "c:\fff\"
end sub

Sub main
Dim fso, MyFile 'copy all file to specified folder. except folders.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
Log.Message(CreateFolderDemo)
end sub

Sub main
Dim fso, MyFile 'copy all file to specified folder. except folders.
set WshShell = CreateObject("WScript.Shell")
a=WshShell.ExpandEnvironmentStrings("%WinDir%")
Log.Message(a) '''cout<< c:\windws
end sub