Unter-Verzeichnisse und Dateien auslesen

[ooodoc]

Moin
Das Problem ist, ich möchte Dateien in ihrem Verzeichnis und Unterverzeichnis auslesen und in calc besser in base übernehmen.
Folgendes Makro zeigt es aber nur in einer MsgBox an.

Sub ShowFiles2
Dim NextFile As String
Dim AllFiles As String
AllFiles = ""
NextFile = Dir("C:\temp\", 0)
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir
Wend
MsgBox AllFiles
End Sub

Bitte um Hilfe

[Toxitom]

Hex ooodoc,

Bitte um Hilfe

Ja und

Was für Hilfe brauchst du denn? Wenn du die Daten in der msgbox schon hast, dann weisst du doch, wie du an sie rankommst.
Und weiter? Was heisst "in Calc oder Base"? Als Text? in einer Zelle? in einem Datensatz? Eine Zeile pro Eintrag? Oder wie oder was?
Was willst du denn erreichen?

Gruss
Thomas

[ooodoc]

Moin
Das war wohl etwas ungenau.
Ich habe vor ein Verzeichnis auszulesen zum erstellen einer Datenbank, die einzelnen Dateinamen sollen jeweils in eine Zelle erscheinen. So wie das folgende von mir angepaßt Makro es macht. Das Problem ist nun das die letzte Datei aus dem Verzeichnis nicht eingetragen wird, was muß hier nun noch angepasst werden.

Code: Alles auswählen

sub DatenInZellen
   Dim NextFile As string
   Dim dReihe As variant
   Dim mycell as variant
	
   NextFile = Dir("C:\temp\", 0)
  
 for reihe = 0 to 6
	myDoc = stardesktop.currentcomponent
	mySheet = myDoc.sheets(0)
	mycell = mysheet.getCellByPosition(2,0 + dReihe)
	mycell.string = dir
 next reihe

end sub

Schon mal Danke