Create+File

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