Office: (Office 2010) Pfad an Variable übergeben

ble · 11. September 2019

Hallo,

ich möchte einen Pfad an eine Variable übergeben:
Das funktioniert:
Code:

Dim strPfad As String
strPfad = CurrentProject.Path
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das führt zu Laufzeitfehler 53 "Datei nicht gefunden"
Code:

strPfad = "K:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bin auf nichts gekommen, egal ob ich den : oder den weglasse.

Kann ich den Pfad aus einem Textfeld nehmen?
Code:

strPfad = Me![Text0]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank

:)

ebs17 · 13. September 2019

Einer Stringvariablen kann man beliebigen Text zuweisen, da wird kein Fehler entstehen. Ob das Eingetragene ein verwendbarer Pfad ist, wird erst bei Verwendung ermittelt.
Ergo: Der gezeigte Code und das Problem sind verschiedene Dinge

maikek · 13. September 2019

Moin,
wenn du die Variable strPfad debuggst (Debug.Print), und zwar ganz am Ende, direkt vor ihrer Verwendung im Code, was kommt dabei im Direktfenster bei den verschiedenen Versuchen heraus?
Und wie sieht der gewünschte Pfad aus?
maike

ble · 13. September 2019

Hallo,

ich dachte eine Dateisuche wie
https://dbwiki.net/wiki/VBA_Tipp:_Ve...um_durchsuchen
wäre eine praktische Sache.
Aber die Datenbank immer das Laufwerk zu kopieren, wo man suchen will, wäre zu umständlich. Das einzige was ich am Code ändern muss, dachte ich, sei
Code:

strPfad = CurrentProject.Path & "MeinOrdner"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also beispielsweise
Code:

"K:"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zu Eberhard: Ich muss leider wieder einmal erkennen, dass es nicht einfach ist eine Frage zustellen, weil ich nicht weiß, welche Infos der Helfer braucht.
Bitte nicht böse sein!

Beaker s.a. · 14. September 2019

\@ble
Kann es sein, dass dir die Verwendung von Debug.Print und das
Direktfenster nicht geläufig sind?
gruss ekkehard

ble · 15. September 2019

Hallo,

ich denke mal, dass debug.print bewirkt, dass ein Ergebnis im Direktfenster angezeigt wird.

Ohrkester · 15. September 2019

Servus ble,
vergiss den Backslash hinter dem Doppelpunkt nicht.
Das Forum hier lässt allerdings auch keinen Backslash in der Anzeige zu.

Also "K:|" & DeinOrdner
"|" änderst Du in einen Backslash.

ebs17 · 15. September 2019

ich dachte eine Dateisuche ... wäre eine praktische Sache
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn Du das dann auch praktisch verwenden willst, solltest Du den kompletten Aufruf der Funktion zeigen.
Wie gesagt, eine Stringvariable an sich schluckt alles ohne zu murren. Für eine Funktion müssen dann aber geforderte Argumente bestimmte Anforderungen erfüllen.

"Datei nicht gefunden" und ein Pfad wären dann eigentlich verschiedene Dinge.

ble · 17. September 2019

Manche Dateien mag der ode, manche verursachen einen Fahler, warum, das habe ich nicht herausgekriegt. Dadurch kamen die Fehler. ebs hat den richtigen Weg gewiesen. Die Fehler bereinige ich mit
Code:

If err.Number = 52 Then

MsgBox "Ein Dateinname konnte nicht gelesen werden. "
Resume Next
End If
If err.Number = 53 Then

MsgBox "klappt für diese Datei nicht!"
Resume Next
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich poste mal den ganzen Code, ist etwas viel.
Die Dateien werden in verschiedenen Listen angezeigt, durch einen Klick kann man Sie öffnen.

Sollte den Code jemand nutzen, wird er feststellen, dass die Performance sehr mäßig ist, also eher etwas für kleinere Ordner, nicht für große Massenspeicher.
Code:

Option Compare Database
Option Explicit
Public Function DateienSuchen(Optional Ordnerpfad As String = "", _
Optional Dateityp As String, _
Optional OhneUnterordner As Boolean) As String()

' Quelle: DBWiki
On Error GoTo err:
Dim idx As Long
Dim lngTyp As Long
Dim strDir As String
Dim strAktDir As String
Dim colDir As New Collection
Dim arrResult() As String

lngTyp = Len(Dateityp)

If Right$(Ordnerpfad, 1) "" Then
Ordnerpfad = Ordnerpfad & ""
End If

' Fehler auslösen, wenn Ordnerpfad ungültig
Call GetAttr(Ordnerpfad)

colDir.Add Ordnerpfad

Do While colDir.Count > 0
strAktDir = colDir.Item(1)
colDir.Remove 1
strDir = Dir$(strAktDir, vbDirectory)

Do While Len(strDir) > 0
If (strDir ".") And (strDir "..") Then
' Gefundenen Unterordner in Collection einlesen
If (GetAttr(strAktDir & strDir) And vbDirectory) 0 Then
If OhneUnterordner = False Then
colDir.Add strAktDir & strDir & ""
End If
Else
' Gefundene Datei in Array einlesen
If Right(strDir, lngTyp) = Dateityp Then
ReDim Preserve arrResult(idx)
arrResult(idx) = strAktDir & strDir
idx = idx + 1
End If
End If
End If
strDir = Dir$
Loop

Loop

Set colDir = Nothing

DateienSuchen = arrResult
err:
If err.Number = 52 Then

MsgBox "Ein Dateinname konnte nicht gelesen werden. "
Resume Next
End If
If err.Number = 53 Then

MsgBox "klappt für diese Datei nicht!"
Resume Next
End If
End Function

Private Sub Befehl0_Click()

On Error GoTo err:
CurrentDb.Execute "DELETE FROM tblDateien", dbFailOnError
Me.Liste1.RowSource = ""
Me.Liste11.RowSource = ""
Dim strPfad As String
Dim strret() As String
Dim i As Long
Dim itm As Variant
If Nz(Suchbeginn) = "" Then
MsgBox "Bitte Feld Suchbeginn füllen!"
Exit Sub
End If
strPfad = Me.Suchbeginn
' strPfad = CurrentProject.Path '& "M:"
'strPfad = Nz(Me!Suchbeginn)
'strPfad = CurrentProject.Path
' Beispiel 1:
' Alle Dateien des aktuellen Ordners und aller seiner Unterordner zurückgeben
strret = DateienSuchen(strPfad)

' Beispiel 2:
' Alle Dateien nur des aktuellen Ordners zurückgeben
'strret = DateienAuflisten(strPfad, True)

' Für Beispiel 1 und 2:
' Rückgabe-Array mit allen gefundenen Dateien durchlaufen, und alle Dateipfade auflisten
' Wenn alle zu durchsuchenden Ordner leer sind, wird ein Fehler ausgelöst.
On Error Resume Next
For i = 0 To UBound(strret)

Me.Liste1.AddItem strret(i)

Me.Liste11.AddItem Dir(strret(i))
CurrentDb.Execute ("INSERT INTO tblDateien(Dateiname, Kurzname) VALUES ('" & Liste1.Column(0, i) & "', '" & Liste11.Column(0, i) & "')")
'CurrentDb.Execute ("INSERT INTO tblDateien(Kurzname) VALUES ('" & Liste11.Column(0, i) & "')")
Next

err:

If err.Number = 52 Then

MsgBox "klappt für diese Datei nicht!"
Resume Next
End If

If err.Number = 53 Then

MsgBox "fehler, 53, klappt für diese Datei nicht!"
Resume Next

End If

End Sub

Private Sub Befehl15_Click()
If suchfeld = "" Then
MsgBox "bitte Suchfeld befüllen!"
End If

If DCount("ID", "tblDateien") = 0 Then
Befehl0_Click
End If

If Len(suchfeld) Then
Me.RecordSource = "SELECT * FROM tblDateien WHERE (Dateiname) like ( '*" & Me.suchfeld & "*');"
Me.Liste5.RowSource = "SELECT * FROM tblDateien WHERE (Dateiname) Like ('*" & Me.suchfeld & "*')Order By Dateiname;"
End If
'If Len(suchfeld) Then
'Me.RecordSource = "SELECT * FROM tblDateien WHERE (Kurzname) Like ( '" & Me.suchfeld & "');"
'Me.Liste13.RowSource = "SELECT * FROM tblDateien WHERE (Kurzname) = (l '" & Me.suchfeld & "')Order By Kurzname;"
'End If
If Len(suchfeld) Then
Me.RecordSource = "SELECT * FROM tblDateien WHERE (Kurzname) Like ( '*" & Me.suchfeld & "*');"
Me.Liste13.RowSource = "SELECT * FROM tblDateien WHERE (Kurzname) Like ('*" & Me.suchfeld & "*')Order By Dateiname;"
End If
If Me.Liste5.ListCount = 0 And Me.Liste13.ListCount = 0 Then
MsgBox "Nichts gefunden!"
End If
End Sub

Private Sub Befehl7_Click()
If suchfeld = "" Then
MsgBox "bitte Suchfeld befüllen!"
End If

If DCount("ID", "tblDateien") = 0 Then
Befehl0_Click
End If

If Len(suchfeld) Then
Me.RecordSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Dateiname) = PhonetischSuchen( '" & Me.suchfeld & "');"
Me.Liste5.RowSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Dateiname) = PhonetischSuchen('" & Me.suchfeld & "')Order By Dateiname;"
End If
'If Len(suchfeld) Then
'Me.RecordSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Kurzname) = PhonetischSuchen( '" & Me.suchfeld & "');"
'Me.Liste13.RowSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Kurzname) = PhonetischSuchen(l '" & Me.suchfeld & "')Order By Kurzname;"
'End If
If Len(suchfeld) Then
Me.RecordSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Kurzname) = PhonetischSuchen( '" & Me.suchfeld & "');"
Me.Liste13.RowSource = "SELECT * FROM tblDateien WHERE PhonetischSuchen(Kurzname) = PhonetischSuchen('" & Me.suchfeld & "')Order By Dateiname;"
End If
If Me.Liste5.ListCount = 0 And Me.Liste13.ListCount = 0 Then
MsgBox "Nichts gefunden!"
End If

'If Me.RecordsetClone.RecordCount = 0 Then
'MsgBox "Keine Daten gefunden. Überprüfen Sie Ihre Eingabe!"
'End If

End Sub

Private Sub Form_Load()
CurrentDb.Execute "DELETE FROM tbldateien", dbFailOnError
Me.Liste1.RowSource = ""
Me.Liste11.RowSource = ""

End Sub

Private Sub Liste13_Click()
On Error GoTo er
DoCmd.SetWarnings False
Application.FollowHyperlink Me.Liste1
DoCmd.SetWarnings True
er:
If err.Number = 163388 Then
Exit Sub
End If
End Sub

Private Sub Liste5_Click()
On Error GoTo er
DoCmd.SetWarnings False
Application.FollowHyperlink Me.Liste1
DoCmd.SetWarnings True
er:
If err.Number = 163388 Then
Exit Sub
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für die Hilfestellung.

Ohrkester · 17. September 2019

Servus ble,
tut es manchmal nicht auch ein Ein- oder Zweizeiler?
Code:

If Dir(DeinPfad, vbDirectory) = "" Then
...
...
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

If Dir(DeinPfad, vbDirectory) DeinSuchBegriff Then
...
...
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Luschi · 17. September 2019

Hallo ble,

die Funktion 'DateienSuchen' schwächelt und stolpert über Umlaute in Pfad- bzw. Dateinamen. Bei mir gibt es einen Pfad 'H:\Daten\Überblick', gesucht wird aber nach einem Ordner 'H:\Daten\U¨berblick' (¨ ist das ASCII-Zeichen 0168)

Gruß von Luschi
aus klein-Paris

ble · 18. September 2019

Hallo Luschi,

eigenartig, bei mir klappt es mit O:{ödipus/äää.docx. (Backslash)

hallo Ohrkester,

werde ich ausprobieren.

ble · 19. September 2019

Hallo Ohrkester,

hat etwas gedauert bis ich den Nicknamen verstanden habe, was ich noch nicht verstanden habe ist, wo ich den Code einsetzen kann, beim Click-Ereignis oder bei der Funktion.

Hallo Luschi,

weiß nicht recht, den Fahler konnte ich nicht nachstellen. Hätte aber auch nicht das Können und Wissen, den Fehler auszubessern.

Ohrkester · 20. September 2019

Servus ble,
sorry, dass ich etwas übersehen habe. Die DIR-Funktion ist ja schon eingebaut in deiner Funktion.
Also meinen Kommentar ignorieren bitte.

Office: (Office 2010) Pfad an Variable übergeben

Pfad an Variable übergeben

Pfad an Variable übergeben

Pfad an Variable übergeben

Pfad an Variable übergeben

Pfad an Variable übergeben

Pfad an Variable übergeben - Similar Threads - Pfad Variable übergeben

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Variable in Pfad zu externem Inhalt (Sharepoint)

Workbook über variablen Pfad öffnen

Datei speichern und Pfad in Variable speichern

Variablen Pfad in einer Formel