Bestaan en inhoud van file

Auteur: sybo - 21 oktober 2004 - 12:40 - Gekeurd door: Dennisvb - Hits: 5228 - Aantal punten: 2.67 (3 stemmen)

Test voor het bestaan van een file en inhoud weergeven van de file

Code:

php code - Bekijk de code zonder highlighting - Klap code in

'* 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")
'*                                 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

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Geen reacties (0)