Datei im Laufwerk C: suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim DateiNam As String Dim mb Dim tan mb = TextBox7.Text Dim strPath$ strPath = "C:\" With ActiveSheet strPath = strPath & mb ' MsgBox strPath & mb If Dir(strPath, vbNormal) "" Then MsgBox "Kunden-Name " & DateiNam & Chr(13) & Chr(13) & _ "mit der Rg. - Nr. ist vorhanden !" & vbLf & vbLf & "Bitte ändern !" Else MsgBox "nicht vorhanden" End If End With End Sub

Hsallo Walter,
in Deinem Code wird kein Unterordner durchsucht, daher wird die Datei nur dann gefunen, wenn sie EXAKT im Ausgangsverzeichnis "C:\" gespeichert ist !
Versuche mal gemäß folgender Version (aus Geschwindigkeitsgründen beginnt die Suche im Ordner "C:\Temp" und irgendwo in diesem Ordner befindet sich die Datei auch) :

Sub Datei_Suchen()
Dim strDir As String
Dim objFSO As Object
Dim objDir As Object
Set objFSO = CreateObject("scripting.filesystemobject")
strDir = "C:\Temp" 'Ausgangsverzeichnis
Set objDir = objFSO.GetFolder(strDir)
strDir = Dateipfad(objDir, "Irgendeine Datei.txt") 'Diese Datei wird gesucht
If strDir = "" Then
MsgBox "Datei wurde nicht gefunden !"
Else
MsgBox strDir, , "Dateipfad"
End If
Set objDir = Nothing
Set objFSO = Nothing
End Sub
Function Dateipfad(ByVal pCurrentDir As Object, ByVal strName As String)
Dim aItem As Variant
On Error Resume Next
For Each aItem In pCurrentDir.Files
If aItem.Name Like strName Then
Dateipfad = aItem.Path
Exit Function
End If
Next
For Each aItem In pCurrentDir.SubFolders
Dateipfad = Dateipfad(aItem, strName)
If Dateipfad  "" Then Exit For
Next
End Function

Gruß und schönes WE, NoNet

Hallo,
was steht denn in der TextBox und wie lautet der tatsächliche komplette Dateiname (mit Endung)?
Hier mal ein Beispiel wie ich das mache:

Option Explicit

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

Private Const MAX_PATH As Long = 260&

Public Sub Test()
    Dim lngReturn As Long
    Dim strPath As String * MAX_PATH
    lngReturn = SearchTreeForFile("C:\", "SASelfCert.exe", strPath)
    If lngReturn = 0 Then
        MsgBox "Nix gefunden"
    Else
        strPath = Left$(strPath, InStr(1, strPath, vbNullChar) - 1)
        MsgBox strPath
    End If
End Sub

Natürlich sind im Dateinamen auch Wildcards zulässig. Statt "SASelfCert.exe" kann ich auch nach "*Self*.*" suchen. Je eindeutier der Dateiname ist und wenn die Endung bekannt ist, dann ist es wahrscheinlicher die richtige Datei zu finden als wenn du nach einem einzelnen Zeichen suchst.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei im Laufwerk C: suchen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread