[VB6] Criterio di ricerca di un file in una directory

[zorro77]

Ritornando al problema principale di questo post, non capisco pechè non funziona la ricerca.

premettendo che i file sono tutti della stessa lunghezza e hanno questo
formato 0012_p23_30b140506_1012_0001X.jpg.mh0 e premettendo che voglio fare
la ricerca solo sui bit che vanno dal 20 al 27 ho scritto in questo modo:

Dim P As String
Dim I As String
Dim E As String
Dim O As String
Dim Eq As String
Dim R As String
Dim Ri As String

Dim nomeImg As String
Dim nomeImgDir As String
If Variazioni(1) <> "" Then P = Variazioni(1) Else: P = "?"
If Variazioni(2) <> "" Then I = Variazioni(2) Else: I = "?"
If Variazioni(3) <> "" Then E = Variazioni(3) Else: E = "?"
If Variazioni(4) <> "" Then O = Variazioni(4) Else: O = "?"

If Variazioni(5) <> "" Then Eq = Variazioni(5) Else: Eq = "?"
If Variazioni(6) <> "" Then R = Variazioni(6) Else: R = "?"
If Variazioni(7) <> "" Then Ri = Variazioni(7) Else: Ri = "?"

nomeImg = "???????????????????" & P & I & E & O & "_" & Eq & R & Ri & "*.*.*"

nomeImgDir = Dir$(TempPath & "\*.*")

Do While Len(nomeImgDir)
       If nomeImgDir = nomeImg Then
                  MsgBox "file trovato"
       End If
Loop

ho provato anche con Strcomp ma niente

[Luciano79]

nomeImg è una stringa che contiene dei punti di domanda
nomeImgDir è una stringa che contiene il nome di un file, sicuramente senza i punti di domanda
Le due variabili quindi non potranno mai essere uguali.
Prova così...

nomeImg = P & I & E & O & "_" & Eq & R & Ri & "*.*.*"
nomeImgDir = Dir(TempPath & "\*" & nomeImg)
If nomeImgDir <> "" Then
  If UCase(Mid(nomeImgDir, 21)) = UCase(nomeImg) Then 'se prima ci sono venti caratteri...
    MsgBox ("File trovato")
  EndIf
End If

PS: al posto di UCase puoi impostare Option Compare Text