Thema Datum  Von Nutzer Rating
Antwort
15.07.2017 15:28:28 LindaK
NotSolved
15.07.2017 16:19:47 Gast45295
NotSolved
17.07.2017 15:26:03 Linda K
NotSolved
17.07.2017 19:50:56 Gast97002
NotSolved
Rot Relativer Pfad
17.07.2017 17:28:47 Gast73690
NotSolved

Ansicht des Beitrags:
Von:
Gast73690		 Datum:
17.07.2017 17:28:47		 Views:
658		 Rating:
     
Antwort:
  Ja
Thema:
Relativer Pfad

Hallo,

dieser Ansatz ermittelt den Pfad der gesuchten Datei:

 

Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
  ByVal RootPath As String, _
  ByVal InputPathName As String, _
  ByVal OutputPathBuffer As String) As Long
  


Private Sub Test()
  Dim Retval As Long, TmpStr As String * 256
 
  ' Suche beginnen
  Retval = SearchTreeForFile("c:\users\LK\Documents\VBA", "Formular_Verteiler_ABT_HR3.xlsx", TmpStr)
  If Retval = 0 Then
    MsgBox "Es wurde keine Datei mit diesem Namen gefunden"
  Else
    MsgBox Left$(TmpStr, InStr(1, TmpStr, vbNullChar) - 1), , _
    "Gefundene Datei"
  End If
End Sub

 

Anstelle der ausgabe in der MSGBox kann der koplette Pfad in eine Variable übergeben werden.

 

mfg

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.07.2017 15:28:28 LindaK
NotSolved
15.07.2017 16:19:47 Gast45295
NotSolved
17.07.2017 15:26:03 Linda K
NotSolved
17.07.2017 19:50:56 Gast97002
NotSolved
Rot Relativer Pfad
17.07.2017 17:28:47 Gast73690
NotSolved