[Risolto] Print File Name

[dex]

Ciao raga
devo printare tutti i file jpg presenti in una cartella
mi date una mano a correggere questo codice

Codice: [Seleziona]

For Each Dir(Myurl, "*.jpg", gb.File)
     
                  Print File.Name(Myurl)

Next

[vuott]

Quando si ha un dubbio su una risorsa, la prima cosa da fare è dare un'occhiata alla guida in linea.

Per FOR EACH la guida dice:

FOR EACH Variable IN Expression
  ...
NEXT

Tu non hai posto la "variabile", alla quale assegnare quanto ritornato dalla funzione "Dir( )", che è un valore di tipo stringa.
Tenuto conto degli argomenti che hai passato a detta funzione, essa ti restituirà il nome di ciascun file avente estensione .jpg.

Pertanto, avrai:

Codice: [Seleziona]

  Dim s As String

  For Each s In Dir(Myurl, "*.jpg", gb.File)
    Print s
  Next

[dex]

grazie vuott