klasörde dosya arama

[oydemir]

formda bulduğum kodu kullanıyorum işimi görüyor fakat bir sorunun var
örnek :
aradığım resim dosyasının ismi 4_14-22.jpg bu klasörde bulunmuyor
klasörde bulunan 4_14-2.jpg
bana varmış gibi gösteriyor tam eşleşme yapmıyor gibi bunu nasıl hallede bilirim.
teşekkürler
Private Sub CommandButton9_Click()
TextBox36 = TextBox28 & TextBox29 & "\1-a\" & TextBox30 & ".jpg"
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists(TextBox36)
If a = True Then
TextBox8 = "a TARAMASI VAR"
Else
TextBox8 = "a YOK"
End If
End Sub

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodu kullanmanızı öneririm. Hızlı ve esnek çalışma imkanı vardır.

Declare PtrSafe Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, _
                ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
'
Sub Test()
'   Haluk - 21/10/2022
    Dim tempStr As String, strFileName As String, strFile As String, RetVal As Long
    Const MAX_PATH = 260
    
    strFileName = "*Emisyon Primi*.jpg"

    tempStr = String(MAX_PATH, 0)
    
    RetVal = SearchTreeForFile("C:\", strFileName, tempStr)
    
    If RetVal <> 0 Then
        strFile = Left(tempStr, InStr(1, tempStr, Chr(0)) - 1)
        MsgBox "Dosya bu adreste bulundu: " & vbCrLf & vbCrLf & strFile
      '  Kill strFile
       ' MsgBox "Dosya silindi!"
    Else
       ' MsgBox "Aranan dosya bulunamadı!"
    End If
End Sub

 

[oydemir]

Teşekkür ederim benim bilgim bunu çözemedi çözemez isem yardım rica ederim

 

[oydemir]

Kolay gelsin

Ben sizde mümkünse bir soru sormak isterim.
Aradığım resmin adı TextBox31 den geliyor .
( strFileName = "*TextBox31 &.tif*")
aradığım klasör yolu TextBox28 ve TextBox29 dan geliyor
RetVal = SearchTreeForFile("TextBox28 & TextBox29&\ANLA", strFileName, tempStr)
Fakat yok olduğu halde yok diyor. Bu konuda yardım edebilir misiniz.
Dosya yolarını normal şekilde yazdığımda hiç bir sorun olmadan açmakta

 

[Biolightant]

tam eşleşme yapmıyor

Sorunuzdan benim anladığıma göre

Private Sub CommandButton9_Click()

    If Dir(TextBox31.Text) <> "" Then
        MsgBox "Dosya VAR"
    Else
        MsgBox TextBox31.Text & vbCr & vbCr & "Dosya adresini Kontrol ediniz.( boş lukla rıda )", vbCritical, "Dosya YOK !!!"
    End If
  
End Sub

 

[oydemir]

elinize sağlık dogru anlamışınız Teşekkürler