Проверка существования файла

LogFile = "C:\FSO\fso.txt"
Const ForWriting = 2
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(LogFile) Then
	Set objFile = objFSO.OpenTextFile(LogFile, ForAppending)
	objFile.Write "appending " & Now
Else
	Set objFile = objFSO.CreateTextFile(LogFile)
	objFile.Close
	Set objFile = objFSO.OpenTextFile(LogFile, ForWriting)  
	objfile.write "writing to new file " & now
End If
objFile.Close

Также интересно:

Интересное на сайте: 
0
Голосов пока нет

Оставить комментарий