title image


Smiley Re: WICHTIG, bin am rande des Wahnsins
Hi!So zum Beispiel:Dim Ordner As String'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++' Von Marcus Schmitt ()Private Declare Function FindExecute Lib "shell32.dll" Alias _   "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory _   As String, ByVal lpResult As String) As LongPrivate Function VerknuepftesProgramm(Datei As String) As String   Dim Pfad As String   Pfad = Space(256)   FindExecute Datei, vbNullString, Pfad   VerknuepftesProgramm = Left$(Pfad, InStr(Pfad, vbNullChar) - 1)End Function'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++Private Sub File1_DblClick()    Shell (VerknuepftesProgramm(File1.Path + "\" + File1.FileName) + " " + File1.Path + "\" + File1.FileName)End SubPrivate Sub Form_Load()    Ordner = "C:\Eigene Dateien"    File1.Path = OrdnerEnd SubWenn du nur einen bestimmten Dateityp angezeigt haben möchtest dann must du das Programm nur um eine Zeile ergänzen:Private Sub Form_Load()    Ordner = "C:\Eigene Dateien"    File1.Path = Ordner    File1.Pattern = "*.pdf"End SubMarcus Schmitts Homepage - http://www.schmittis-page.deMr. SICQ #67858520

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: