title image


Smiley Re: Word97-VBA: Wie bekomme ich den Pfad zu einer Datei mittels Dialog heraus?
Hallo,



versuchs hiermit:

Sub TestFindFiles()

Dim sErgebnis As String

'Pfad anpassen

sErgebnis = FindFiles("C:\Eigene Dateien\", "*.doc")



MsgBox sErgebnis, , "Ergebnis"

End Sub



'========================================================================



Function FindFiles(Optional ByVal sPfad As String, _

Optional ByVal sExtension As String) As String



Dim dlg As Dialog

Dim dlgFind As Dialog

Dim sFile As String, oFile As String, oPfad As String

Dim sDefaultOpenPath As String



'Pfad,unter Extras|Optionen|Dateiblage eingetragen

sDefaultOpenPath = _

Application.Options.DefaultFilePath(wdDocumentsPath)



'wenn der Pfad nicht existiert

If sPfad = "" Then

sPfad = sDefaultOpenPath

End If



If sExtension = "" Then

'Dateien, *.doc

sExtension = "*.doc"

End If



'Suchpfad

Application.Options.DefaultFilePath(wdDocumentsPath) = sPfad



'Dialog anzeigen

Set dlg = Dialogs(wdDialogFileOpen)

Set dlgFind = Dialogs(wdDialogFileFind)



With dlg

.Name = sExtension



Select Case .Display

Case -1

dlgFind.Update

sPfad = dlgFind.SearchPath

sFile = dlg.Name

Case Else

'Abbruch?, Pfad zürücksetzen

Application.Options.DefaultFilePath(wdDocumentsPath) = _

sDefaultOpenPath

Exit Function

End Select

End With



'gewählte Datei in Variable

sFile = dlg.Name



If Right(sPfad, 1) <> Application.PathSeparator Then

sPfad = sPfad & Application.PathSeparator

End If



oFile = sPfad & sFile

oPfad = sPfad

'Pfad zurücksetzen

Application.Options.DefaultFilePath(wdDocumentsPath) = _

sDefaultOpenPath



'Ergebnis

MsgBox sPfad, , "Pfad"

MsgBox sFile, , "Dateiname"

MsgBox oFile, , "Pfad und Dateiname"

FindFiles = sFile

End Function



      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: