Liste over hvad der er på en cd

Skal det være et program der søger HELE CD\'en igennem ?

Prøv dette her :

Option Explicit
Dim fso As New FileSystemObject
Dim fld As Folder

Private Sub Command1_Click()
Dim nDirs As Integer, nFiles As Integer, lSize As Long
Dim sDir As String, sSrchString As String
       
\' din Cd rom er her
       
sDir = \"D:\"
sSrchString = \"*.*\"
MousePointer = vbHourglass
Label1.Caption = \"Searching \" & vbCrLf & UCase(sDir) & \"...\"
lSize = FindFile(sDir, sSrchString, nDirs, nFiles)
MousePointer = vbDefault
End Sub

Private Function FindFile(ByVal sFol As String, sFile As String, nDirs As Integer, nFiles As Integer) As Long
Dim tFld As Folder, tFil As File, FileName As String

Set fld = fso.GetFolder(sFol)
FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or vbHidden Or vbSystem Or vbReadOnly)
While Len(FileName) <> 0
FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, FileName))
nFiles = nFiles + 1
             
\' Din textfil er her
             
Open \"C:\\windows\\skrivebord\\textfil.txt\" For Append As #1
Print #1, fso.BuildPath(fld.Path, FileName)
Close #1
             
FileName = Dir()
DoEvents
Wend
Label1 = \"Searching \" & vbCrLf & fld.Path & \"...\"
nDirs = nDirs + 1
If fld.SubFolders.Count > 0 Then
For Each tFld In fld.SubFolders
DoEvents
FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles)
Next
End If
End Function

Hvis den kun skulle skrive filerne uden stien så

Open \"C:\\windows\\skrivebord\\textfil.txt\" For Append As #1
Print #1, FileName
Close #1

ja, det skal være på hele cden, altså i alle mapperne. Hvis det kan lade sig gøre

Det skulle min kode da gerne gøre...for du fejl ??

superinfojens:> nææ der er nok ikke fejl, men længere oppe spurgte jeg \"Skal det være et program der søger HELE CD\'en igennem ?\"

Fik ikke lige øje på det, den smukke kode lige under tog al opmærksomheden *GG*

Ok, superinfojens, jeg har set din kode, men jeg har desværre ikke haft tid til at afprøve den, det får jeg først i morgen.

Hvad med en gammel DOS Commando DIR *.* /s > C.\\[evt. Directory\\]Filnavn.txt
Vb Shell \"DIR *.* /s > C.\\Filnavn.txt\"
anvend Open til at læse filen

Tasste fejl \"C.\" ->\"C:\"