title image


Smiley Shell Möglichkeiten:
Notes Standart:

file = "c:\Test.xxx"

OSInfo=Evaluate("@Platform([SPECIFIC])")

If OSInfo(0)="Windows/NT" Then

TID=Shell("cmd /c start "+file,2)

Else

TID=Shell("start "+file,2)

End If

oder:

file = "c:\Test.xxx"

TID=Shell("c:\pfad\player.exe "+file,2)



Windoof API:

Declare Function ShellExecute Lib "Shell32.dll" Alias _

"ShellExecuteA" (Byval hWnd As Long, Byval lpOperation _

As String, Byval lpFile As String, Byval lpParameters _

As String, Byval lpDirectory As String, Byval nShowCmd _

As Long) As Long



Sub Click(Source As Button)

Pfad = "C:\Daten\Verzeichnisstruktur.txt"

Call ShellExecute(0&, "Open", Pfad, "", "", 1)

End Sub



Ausprobieren. Mehr gibts nicht.



Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: