'* Bestaat de file: zoja geef de inhoud zoniet foutmelding
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\test.txt") Then
Set objFile = objFSO.GetFile("C:\test.txt")
'* inhoud van file file?
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("C:\test.txt", 1)
strContents = objReadFile.ReadAll
Wscript.Echo strContents
objReadFile.Close
Else
Wscript.Echo "De File is leeg."
End If
Else
Wscript.Echo "File bestaat niet."
End If
'* Bestaat de file: zoja geef de inhoud zoniet foutmelding
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\test.txt") Then
Set objFile = objFSO.GetFile("C:\test.txt")
If objFile.Size > 0 Then
Set objReadFile = objFSO.OpenTextFile("C:\test.txt", 1)
strContents = objReadFile.ReadAll
objReadFile.Close
Else
Wscript
.Echo "De File is leeg." Else
Wscript
.Echo "File bestaat niet."