Find name of file in dir

[sal21]

Base myvar="102016", how to check if file in dir exists, and retrieve the complete name of file?

Possible without loop file in dir?

all file have a numeric name, but with variable length

[HansV]

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    myFolder = "C:\Lavori_VB6\...\...\"
    myFile = Dir(myFolder & myVar & ".*")
    If myFile = "" Then
        MsgBox "File does not exist!"
    Else
        MsgBox "The complete filename is " & myFile
    End If

[sal21]

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    myFolder = "C:\Lavori_VB6\...\...\"
    myFile = Dir(myFolder & myVar & ".*")
    If myFile = "" Then
        MsgBox "File does not exist!"
    Else
        MsgBox "The complete filename is " & myFile
    End If

[sal21]

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    myFolder = "C:\Lavori_VB6\...\...\"
    myFile = Dir(myFolder & myVar & ".*")
    If myFile = "" Then
        MsgBox "File does not exist!"
    Else
        MsgBox "The complete filename is " & myFile
    End If

sorry bro...
based this code how to rename only all files with namefile.jpeg in namefile.jpg, delete old file , *.jpeg

[HansV]

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    myFolder = "C:\Lavori_VB6\...\...\"
    myFile = Dir(myFolder & "*.jpeg")
    Do While myFile <> ""
        Name myFolder & myFile As myFolder & Replace(myFile, ".jpeg", ".jpg")
        myFile = Dir
    Loop

[sal21]

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    myFolder = "C:\Lavori_VB6\...\...\"
    myFile = Dir(myFolder & myVar & ".*")
    If myFile = "" Then
        MsgBox "File does not exist!"
    Else
        MsgBox "The complete filename is " & myFile
    End If

bro...
is this correct to use a multi pattern for files in dir:

...
sPATTERN = "*.gif;*.bmp;*.jpg"

sPath = STRPATHIMG

sfile = Dir(sPath & sPATTERN & ".*")

...

[HansV]

No, you can process only one attachment at a time. So you'll have to use one loop for *.gif, one for *.bmp and one for *.gif.

[sal21]

No, you can process only one attachment at a time. So you'll have to use one loop for *.gif, one for *.bmp and one for *.gif.

OK.
Peraps, split into array and loop it, for example:

arrpattern="*.gif;*.jpg;*.bmp"

[HansV]

Yes:

Code: Select all

    Dim myFolder As String
    Dim myFile As String
    dim myExtension As Variant
    myFolder = "C:\Lavori_VB6\...\...\"
    For Each myExtension in Array("*.gif", "*.jpg", "*.bmp")
        myFile = Dir(myFolder & myExtention)
        Do While myFile <> ""
            ' Your code here
            ...
            myFile = Dir
        Loop
    Next myExtension