title image


Smiley Re: Pfade bei GetOpen...
Hallo Mazze,Mal auf die Schnelle so hingestrickt:Sub SpecialPath() Const NewDrive As String = "C:" Const NewPath As String = "\Temp" Dim strOldDrive As String 'altes Laufwerk ermitteln Dim strCurrentPath As String 'alten Pfad ermitteln strCurrentPath = CurDir strOldDrive = Left(strCurrentPath, 2) MsgBox CurDir ChDrive NewDrive ChDir NewDrive & NewPath MsgBox CurDir fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen False Then MsgBox "Open " & fileToOpen Else ChDrive strOldDrive ChDir strCurrentPath 'alten Pfad wieder herstellen. MsgBox CurDir End IfEnd SubWird "GetOpenFilename" abgebrochen, wird auch wieder auf das urspruengliche Verzeichnis zurueckgesetzt.Die Messageboxen solltest Du natuerlich mit Hochkomma deaktivieren.Viele GruesseNorbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: