a (Visszaállítottam a lap korábbi változatát: 84.0.152.82 (vita) szerkesztéséről 79.101.207.121 szerkesztésére) |
(Visszavontam 79.101.207.121 (vita | szerkesztései) szerkesztését (oldid: 1158)) |
||
1. sor: | 1. sor: | ||
===Fájl létrehozása=== |
===Fájl létrehozása=== |
||
Log.txt fájl létrehozása: |
Log.txt fájl létrehozása: |
||
+ | |||
− | lol |
||
+ | strFileName ="log.txt" |
||
+ | Set objFSO = CreateObject("Scripting.FileSystemObject") |
||
+ | Set objFile = objFSO.CreateTextFile(strFileName) |
||
===Fájl létrehozása időbélyeggel=== |
===Fájl létrehozása időbélyeggel=== |
A lap jelenlegi, 2012. augusztus 3., 14:22-kori változata
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