Dim fso, Datei, Argumente, WshShell
 
Set Argumente = Wscript.Arguments 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
Set Datei = fso.GetFile(Argumente(0)) 
If Datei.size <= 62000 Then 
  ' Starte notepad 
  WshShell.Run ("%windir%\notepad.exe " & Argumente(0)) 
Else
  ' Starte Wordpad
  WshShell.Run ("%windir%\wordpad.exe " & Argumente(0)) 
End if

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de