home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 May / CDROM.ISO / sharewar / prx / start.exe / start.vbs
Encoding:
Text File  |  1999-02-04  |  937 b   |  28 lines
  1. 'Definition der Variablen
  2. Dim fso, Datei, Argumente, WshShell
  3.  
  4. 'Einlesen der Argumente (Name und Pfad der TXT-Datei)
  5. Set Argumente = Wscript.Arguments
  6.  
  7. 'Das FileSystem-Objekt wird definiert. Dieses wird fⁿr Zugriffe auf das Dateisystem ben÷tigt
  8. Set fso = CreateObject("Scripting.FileSystemObject")
  9.  
  10. 'Das Shell-Objekt wird definiert. Dieses wird ben÷tigt um andere Programme aufzurufen
  11. Set WshShell = Wscript.CreateObject("Wscript.Shell")
  12.  
  13. 'Das Datei-Objekt wird definiert. ▄ber dieses k÷nnen Sie auf Dateieigenschaften zugreifen
  14. Set Datei = fso.GetFile(Argumente(0))
  15.  
  16. 'Prⁿfung: Wenn Die Dateigr÷▀e kleiner/gleich 62000 Byte ist, dann
  17. If Datei.size <= 62000 Then
  18.  
  19. 'Starte notepad
  20.     WshShell.Run ("%windir%\notepad " & Argumente(0))
  21. Else
  22.  
  23. 'Starte Wordpad.
  24. 'Statt %windir%\write k÷nnen Sie den Pfad und den Dateinamen zu einer
  25. 'beliebigen Anwendung eintragen.
  26.  
  27.     WshShell.Run ("%windir%\write " & Argumente(0))
  28. End if