[RISOLTO] TABELLA FILE ESTENSIONE JPG e FLV ?

[guglielmofede]

SALVE,

con la riga che segue creo una tabella di file con estensione JPG.

ListaFileDestro = Dir(nomeDirectoryDestro, "*.JPG").Sort(gb.Ascent)

Se volessi nella tabella anche i file con estensione FLV come si fa?

A Presto.............

[Ceskho]

Siccome non posso provare dovresti tentare con questa modifica:

Codice: [Seleziona]

ListaFileDestro = Dir(nomeDirectoryDestro, "*.JPG" OR "*.FLV").Sort(gb.Ascent)

Oppure con

Codice: [Seleziona]

ListaFileDestro = Dir(nomeDirectoryDestro, "*.JPG").Sort(gb.Ascent)
ListaFileDestro &= Dir(nomeDirectoryDestro, "*.FLV").Sort(gb.Ascent)

[guglielmofede]

SALVE,

eccoti i messaggi di errori:


[img/home/pannello01/Scrivania/seconda soluzione.png[/img]

A Presto...........

[guglielmofede]

 riprovo..........

eccoti i messaggi di errore:





A Presto............

[guglielmofede]

allego i file visto che non sono riuscito a incollare le immagini..... non so il perchè.......

[guglielmofede]

non so dove ho la testa oggi...............

[milio]

ListaFileDestro = Dir(nomeDirectoryDestro, "*.JPG").Sort(gb.Ascent)
ListaFileDestro.Insert(Dir(nomeDirectoryDestro, "*.FLV").Sort(gb.Ascent))

[guglielmofede]

SALVE,

la soluzione funziona.
Ma come faccio a fare ordinare tutta la tabella?
Mi spiego meglio:
nella soluzione anzidetta ordina gli elementi *.JPG e li scrive in tabella, ordina gli elementi *.FLV e li scrive in tabella accodandoli a quelli presenti.
Quello che voglio avere è avere tutti i file ordinati alfabeticamente a prescindere dall'estensione.
Come faccio a fare ordinare la tabella risultante ?

A Presto............

[guglielmofede]

SALVE,

ho voluto provare e ci sono riuscito:

Codice: [Seleziona]

PUBLIC SUB CaricaListaCentrale()
  ListaFileCentrale = Dir(nomeDirectoryCentrale, "*.JPG").Sort(gb.Ascent)
  ListaFileCentrale.Insert(Dir(nomeDirectoryCentrale, "*.FLV").Sort(gb.Ascent))
  ListaFileCentrale = ListaFileCentrale.Sort(gb.Ascent)
  QuantitaFileCentrale = ListaFileCentrale.Count
END

Cosa ne dite può andare ?

A Presto..............

[Ceskho]

SALVE,

ho voluto provare e ci sono riuscito:

Codice: [Seleziona]

PUBLIC SUB CaricaListaCentrale()
  ListaFileCentrale = Dir(nomeDirectoryCentrale, "*.JPG").Sort(gb.Ascent)
  ListaFileCentrale.Insert(Dir(nomeDirectoryCentrale, "*.FLV").Sort(gb.Ascent))
  ListaFileCentrale = ListaFileCentrale.Sort(gb.Ascent)
  QuantitaFileCentrale = ListaFileCentrale.Count
END

Cosa ne dite può andare ?

A Presto..............

E lo chiedi a noi? La cosa importante è che funzioni per te....

[guglielmofede]

SALVE,

il tutto FUNZIONA !

Chiedevo se la soluzione è elegante o se c'è nè una più sintetica.
Ribadisco il fatto che sono alle prime armi con GAMBAS  e un occhio esperto può fare tanto.....

A Presto...........