title image


Smiley Re: Filesize => open


Dim FSO

Dim f, res

Dim fname

Dim wshShell

Dim fsize

fname="c:\apache\htdocs\scripts\probe.mp3"

Set FSO = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFile(fname)

Set wshShell = CreateObject("WScript.Shell")

fsize=f.Size

fsize=Round(((fsize/1024)/1024),2)

If fsize> 10 Then

res=MsgBox ( fsize & " MB", 0, "Filesize über 10MB" )

Else

' Öffnen mit was ?

' Evtl. mit assozierertem Programm also so:

wshShell.run(fname)

End if


Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: