Vbscript fájl műveletek

From Joe

Revision as of 19:56, 2 March 2008 (edit) R-Joe (Talk | contribs) ← Previous diff		Revision as of 20:04, 2 March 2008 (edit) (undo) R-Joe (Talk | contribs) (→Fájl felolvasása) Next diff →
Line 46:		Line 46:
	set objTextFile = nothing		set objTextFile = nothing
-	[[categories:Vbscript]]	+	[[category:Vbscript]]

---

Revision as of 20:04, 2 March 2008

Contents 1 Fájl létrehozása 2 Fájl létrehozása időbélyeggel 3 Fájl másolása 4 Fájl törlése 5 Fájl felolvasása

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)

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