[VB6]: Esecuzione comando Dos

[antocasi]

Ciao a tutti
ho un problema con l'esecuzione di un comando DOS:

Shell "Dir /s E:\temp\*.mp3 >E:\Temp\ElencoMp3.txt", vbMaximizedFocus

Ogni volta che lo eseguo da VisualBasic mi ritorna l'errore "Errore di run-time 53: Impossibile trovare il file".
Lo stesso comando eseguito da una finestra DOS funziona correttamente.

Dove sbaglio?? devo definire qualcosa per la funzione Sheel??

Grazie
AntoCasi

[oregon]

Devi scrivere

Shell "Cmd /C Dir /s E:\temp\*.mp3 >E:\Temp\ElencoMp3.txt", vbMaximizedFocus

[antocasi]

ok Oregon

funziona bene, ma così facendo ho scoperto un nuovo piccolo problema. Dopo aver creato il file di testo ovviamente devo leggerlo
Peccato che quando faccio la Open File For Input l'operazione della Shell non sia ancora terminata è questione di millesimi di secondo, ma tant'è!

Come posso fare? si può controllare che il comando Shell sia terminato oppure devo mettere qualche comando di attesa?

AntoCasi

[oregon]

Certo ... la Shell e' asincrona ... quindi, scrivi

    Dim wsh As Object
    
    Set wsh = CreateObject("Wscript.shell")

    wsh.run "Cmd /C Dir /s E:\temp\*.mp3 >E:\Temp\ElencoMp3.txt", 1, True

    Set wsh = Nothing