login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:

Scripts > Overige > VBScript > Bestaan en inhoud van file

Bestaan en inhoud van file

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





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

Code:
  1. '* Bestaat de file: zoja geef de inhoud zoniet foutmelding
  2. Set objFSO = CreateObject("Scripting.FileSystemObject")
  3. If objFSO.FileExists("C:\test.txt") Then
  4. Set objFile = objFSO.GetFile("C:\test.txt")
  5. '* inhoud van file file?
  6. If objFile.Size > 0 Then
  7. Set objReadFile = objFSO.OpenTextFile("C:\test.txt", 1)
  8. strContents = objReadFile.ReadAll
  9. Wscript.Echo strContents
  10. objReadFile.Close
  11. Else
  12. Wscript.Echo "De File is leeg."
  13. End If
  14. Else
  15. Wscript.Echo "File bestaat niet."
  16. End If
Download code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Geen reacties (0)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.024s