Forum Replies Created

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • in reply to: Convert Files from folder except… #2027

    cadu1981
    Participant

    Hello again. I already have this code that aloud to load all files and folders

    ‘– Load all files in folders and sub-folders
    Function fCarregaListaFicheirosCATIA(CaminhoRaiz As String, FichCATDrawing As Boolean, FichCATPart As Boolean) As Boolean
    Dim FSO As FileSystemObject

    sCriarLOG “Entrei na função ‘fCarregaListaFicheirosCATIA’ – CaminhoRaiz=” & CaminhoRaiz
    On Error GoTo TrataErro

    Set ListaFicheiros_CATDrawing = New Collection
    Set ListaFicheiros_CATPart = New Collection

    Set FSO = CreateObject(“Scripting.FileSystemObject”)
    Call sShowSubFolders(FSO.GetFolder(CaminhoRaiz), FichCATDrawing, FichCATPart)

    fCarregaListaFicheirosCATIA = True
    sCriarLOG “A sair da função ‘fCarregaListaFicheirosCATIA’ com sucesso”
    Exit Function

    TrataErro:
    fCarregaListaFicheirosCATIA = False
    sCriarLOG “A sair da função ‘fCarregaListaFicheirosCATIA’ com erro: ” & Err.Description
    End Function

    What i need to change to load files and folders except folders with names “BUY-PARTS” and “CUSTOMER-PARTS”

    in reply to: Convert Files from folder except… #2006

    cadu1981
    Participant

    How can i contact you?

    in reply to: Convert Files from folder except… #2005

    cadu1981
    Participant

    Hello.
    Thanks for your answer.

    Should i ask now here i put that??

    i will send to you PM

Viewing 3 posts - 1 through 3 (of 3 total)