Fájl létrehozása[]
Log.txt fájl létrehozása:
strFileName ="log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strFileName)
Fájl létrehozása időbélyeggel[]
dátum_idő_Log.txt fájl létrehozása:
dd = date
dd = Replace(dd,"/",".")
dt = time
dt = Replace(dt,":",".")
strFileName = dd & "_" & dt & "-log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strFileName)
Fájl másolása[]
Fájl másolása a C meghajtó gyökérkönyvtárába
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject ")
FSO.CopyFile "d:\install\setup.bat", "c:\"
Fájl törlése[]
Példa az setup.bat fájl törlésére. A force nem kötelező paraméter. Alapértelmezett értéke false. Ha értéke TRUE, akkor végrehajtódik a fájl törlése, FALSE értéknél nem.
Dim FSO
force = false
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile ("c:\setup.bat",force)
Könyvtár törlése[]
A c:\setupdir könyvtár törlése
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder ("c:\setupdir")
Fájl felolvasása[]
Cmd.txt szöveges fájl felolvasása. A soronként a tartalom egy felbukkanó ablakban jelennek meg
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("cmd.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
Wscript.Echo strNextLine
Loop
A fájl szabályos lezáráshoz az alábbi sorokat kell még hozzáfűzni, különben az újboli megnyitás hibaüzenetet eredményez.
objTextFile.Close set objTextFile = nothing