+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Problema con Dir()

  1. #1
    arimans non è in linea Scolaretto
    Post
    115

    Problema con Dir()

    Salve a tutti,

    ho un problema con la ricerca di file in una cartella tramite Dir().
    Il codice é tipo:

    Pfad = ThisWorkbook.Path
    strFile2 = Dir(Pfad & "\")

    Do While strFile2 <> ""

    comandi vari

    strFile2 = Dir()
    Loop

    I problemi sono i seguenti:

    1) Se non guardo la procedura funziona tutto senza probema
    2) Se vado a vedere i valori assunti da Dir() passo passo, succede che:
    2.1) ogni volta che pigio F8, assume valori diversi, non solo quando arriva a "strFile2 = Dir()", fino a che ricevo l´errore del tipo 5 "Invalid procedure call or argument" oppure
    2.2) assume un valore, con " strFile2 = Dir()" ne assume un´altro e poi quando torno a "do while" ritorna a quello precedente

    Come puó essere che funzioni senza che io guardi i valori assunti e non quando guardo facendo passo passo la procedura?

  2. #2
    GiuseppeMN non è in linea Scribacchino
    Post
    761
    Buona giornata, Arimans;
    leggo solo ora.

    Provando il tuo Codice, non ho riscontrato alcun problema.

    Unica variazione, ho dichiarato le Variabili; questo non modifica in alcun modo il risultato richiesto.
    codice:
    Option Explicit
    
    Sub DIR_prove()
    Dim Pfad As String, strFile2 As String
    
        Pfad = ThisWorkbook.Path
            strFile2 = Dir(Pfad & "\")
                Do While strFile2 <> ""
    
    '''''            comandi vari
    
                     strFile2 = Dir()
                Loop
    End Sub

    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe

  3. #3
    arimans non è in linea Scolaretto
    Post
    115
    Ciao Giuseppe,

    ho riguardato ila macro che ho scritto nel 2016, il codice é il seguente e funziona. Perché non ha funzionato allora non lo so´é passato troppo tempo.

    codice:
    Do While strFile = "update.xlsm" Or strFile <> ""
    
    codice vario
        
        strFile = Dir()
    Loop

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi