Newsgroup: it.comp.appl.access
Titolo: comando visual basic

esiste un comando che mi permetta di scrivere in un file (esempio prova.txt) 
l'elenco dei files presenti su una determinata unità disco ?
grazie ciao 

 grazie ciao
Shell "DIR D:\*.* > listaFile.txt"
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:df6rbh$b2i$1...@canarie.caspur.it...

è quello che io provavo ma non i funziona, mi dice impossibile trovare il 
files
io lo scrivo all'inizio della procedura dove sono contenute tutte le 
istruzioni che poi dovranni essere compiute cliccando su quel bottone
ciao 

 ciao
Prova questa routine:
'-----
Sub ElencaFile(path As String, tipo As String)
Dim fileDaTrovare As String, elenco As String
elenco = ""
fileDaTrovare = path & tipo
If Dir(path & tipo) = "" Then
    ElencaFile = "(non presenti)"
    Exit Function
End If
fileDaTrovare = Dir(path & tipo)
Open "c:\elencoFile.txt" For Output As 1
Do While fileDaTrovare <> ""
    If fileDaTrovare <> "" Then
        Print #1, fileDaTrovare
    End If
    fileDaTrovare = Dir
Loop
Close 1
End Sub
'-----
Richiamala cosě:
ElencaFile "c:\", "*.*"
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:df771l$qmo$1...@area.cu.mi.it...

approfitto ancora della tua pazienza, il programma funziona ma elenca solo i 
files e non le directory.
quello che vorrei realizzare č un archivio dei miei cd, dove inserendo il cd 
mi legge i files presenti e li memorizzi in un archivio in modo da 
realizzare un'archiviazione piů rapida
1.000 grazie
ciao stefano 

 ciao stefano
Prova con questa modifica:
...
fileDaTrovare = Dir(path & tipo, vbDirectory)
...
Comunque, ho come l'impressione che anche questa modifica non ti soddisfi appieno; quindi se cosě fosse ci dirottiamo verso script 
VBS:
'------
Sub ElencaFileInDir(Optional percorso As String = "c:\")
On Error GoTo ElencaFileInDir_err
Dim fso As FileSystemObject, file As Object, cartella As Object, subCartelle As Object, subCartella As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set cartella = fso.GetFolder(percorso)
Open "c:\elencoFile.txt" For Output As 1
Print #1, "cartella: " & cartella.path
Debug.Print "nella cartella: " & cartella.path
Set subCartelle = cartella.SubFolders
For Each subCartella In subCartelle
    Print #1, "subCartella: " & subCartella.path
Next
Print #1, "- - - - - - - - - - - - - -"
For Each file In cartella.Files
    Print #1, "nome: " & file.Name
    Print #1, "creato il: " & file.DateCreated
    Print #1, "modificato il: " & file.DateLastModified
    Print #1, "ultimo accesso: " & file.DateLastAccessed
    Print #1, "drive: " & file.drive
    Print #1, "byte: " & file.Size
    Print #1, "tipo: " & file.Type
    Print #1, "nome 8.3: " & file.ShortName
    Print #1, "percorso 8.3: " & file.ShortPath
    Print #1, "attributi: " & file.Attributes
    Print #1, "- - - - - - - - - - - - - -"
Next
Close 1
Set file = Nothing
Set cartella = Nothing
Set subCartelle = Nothing
Set subCartella = Nothing
Set fso = Nothing
Exit Sub
ElencaFileInDir_err:
    Resume Next
End Sub
'---
Ora guardando oltre, se ti serve invece fare la scansione di tutte se directory/subdirectory e memorizzando i file che ci sono, sul 
sito comune (
www.sitocomune.com
) trovi un esempio: Sezione - General - 6.133 Creare una tabella contenente la struttura di un File 
System
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:df90ho$ea3$1...@area.cu.mi.it...

ho provato la prima soluzione che mi hai proposto e fa al caso mio grazie 
ancora
stefano
p.s.
comunque poi provo anche la seconda