[VB6] subdirectory list

[titan347]

Premetto che non me ne intendo molto di visual basic, potreste dirmi come fare a visualizzare ad esempio in un listbox tutte le sottodirectory contenute in una cartella scelta in precedenza?

Ho trovato questo ma non riesco a capirlo molto :master: mi dareste una mano?

[ale500]

ma vuoi vedere graficamente le cartelle in modo che ci puoi cliccare oppure vuoi vedere soltanto la lista???

se vuoi vedere soltanto la lista basta che nella textbox ci metti la cartella che vuoi esplorare ed il gioco è fatto...carino l'esempio...

[titan347]

grazie mille adesso ho risolto ma volevo chiedere un'altra cosa che non mi è chiara, come si fa a copiare tutti i files in una directory?
ho provato con filecopy "c:/directory/*" ma mi sa che non funzionano i caratteri jolly

[titan347]

nessuno mi risponde? dai... per molti di voi sarà semplice...

[Mabi]

Originariamente inviato da titan347

ho provato con filecopy "c:/directory/*" ma mi sa che non funzionano i caratteri jolly

Se devi copiare tutti i file, li selezioni uno per uno e li copi. Non esiste un comando che semplifichi l'operazione.

Const PathOrigine = "C:\1\"
Const PathDestinazione = "C:\2\"
Dim FileName As String

FileName = Dir(PathOrigine)
Do Until (Len(FileName) = 0)
  FileCopy PathOrigine & FileName, PathDestinazione & FileName
  FileName = Dir
Loop

[titan347]

ok grazie adesso provo ma funzionerà anche con le sottocartelle?

[titan347]

funziona! adesso devo solo riuscire a copiare le sottocartelle