Test in VBA per Excel

Question

Come impostare una determinata azione su un file csv che finisce per un deteminato carattere ad esempio x:

E' corretta la seguente sintassi: 

IF objFile.Name = "*x.csv" then

................

else

..............

end if

Ho provato ma non ottengo il risultato voluto.

Answer 1

Come impostare una determinata azione su un file csv che finisce per un deteminato carattere ad esempio x:

E' corretta la seguente sintassi: 

IF objFile.Name = "*x.csv" then

................

else

..............

end if

 

Ho provato ma non ottengo il risultato voluto.

 

Non è chiarissimo il contesto in cui esegui il ciclo.

la macro qui sotto valuta tutti i nomi dei files di una cartella:

Public Sub mCiclaCartella()

On Error GoTo RigaErrore

    Dim objFSO As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim sPath As String

    sPath = "C:\tuaCartella"

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(sPath)

    For Each objFile In objFolder.Files

        If Right(objFile.Name, 5) = "x.csv" Then

            MsgBox objFile.Name

        End If

    Next

RigaChiusura:

    Set objFile = Nothing

    Set objFolder = Nothing

    Set objFSO = Nothing

    Exit Sub

RigaErrore:

    MsgBox Err.Number & vbNewLine & Err.Description

    Resume RigaChiusura

End Sub