Gambas-it

Gambas3 => Programmazione => Topic aperto da: dex - 15 Settembre 2019, 01:07:43

Titolo: [Risolto] Print File Name
Inserito da: dex - 15 Settembre 2019, 01:07:43

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

Titolo: Re:Print File Name
Inserito da: vuott - 15 Settembre 2019, 03:15:52

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

Titolo: Re:Print File Name
Inserito da: dex - 15 Settembre 2019, 19:26:49

grazie vuott