Vbscript fájl műveletek
From Joe
(Difference between revisions)
(→Fájl felolvasása) |
(→Fájl törlése) |
||
| Line 24: | Line 24: | ||
===Fájl törlése=== | ===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. | + | 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 | Dim FSO | ||
| Line 30: | Line 30: | ||
Set FSO = CreateObject("Scripting.FileSystemObject") | Set FSO = CreateObject("Scripting.FileSystemObject") | ||
FSO.DeleteFile ("c:\\setup.bat",force) | 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=== | ===Fájl felolvasása=== | ||
Current revision as of 22:48, 8 March 2008
Contents |
[edit] 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)
[edit] 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)
[edit] 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:\\"
[edit] 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)
[edit] 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")
[edit] 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
