Dateien aus einem Ordner in eine .txt-Datei schreiben

[JohnDoe]

hi,

wie kann ich alle dateien aus einem Ordner ohne endung in eine Datei schreiben lassen?

Wäre nett wenn jemand einen Code hätte :D

THX,

John Doe

[cYrus]

willst du den Inhalt oder nur den Dateinamen in die Datei speichern?

so long
cYrus

[John Doe]

hi
ich will nur die dateinamen ohne .mp3 speichern.

[fabian ackle]

Hi, hab mal schnell ein kleines Tool geschrieben.

Hier der QT:


Private Sub Command1_Click()
For i = 0 To File.ListCount
For j = 1 To Len(File.List(i)) - 3
If Mid(File.List(i), j, 4) = ".mp3" Then
music = Mid(File.List(i), 1, Len(File.List(i)) - 4)
Text1.Text = Text1.Text & music & vbCrLf
End If
Next j
Next i
End Sub

Private Sub Command2_Click()
cd.ShowSave
Open cd.FileName For Output As #1
Print #1, Text1.Text
Close
End Sub

Private Sub Dir_Change()
File.Path = Dir.Path
End Sub

Private Sub Drive_Change()
Dir.Path = Drive.Drive
End Sub


falls du für besseres verständnis das ganze Programm willst kann ich es dir mailen

btw: warum JohnDoe & John Doe??

greetz

dubious

[John Doe]

Hi,
Danke das du dich drum gekümmert hast. Wäre jetzt noch nett wenn du mir das programm mailen könntest: doe2@uni.de
Vielen Dank,


John Doe

[Bolle]

ich hätte auch interresse an dem program,
könntst du mir das auch bitte schicken?

j-h.boll@web.de

wäre nett, danke

[Alamar]

gibts in vbasic keine tokens?

[Felix Kaiser]

Ich kenn Tokens bisher nur in mIRC. Für VB wär mir neu, Delphi oder CppBuilder wär mir ebenfalls neu.

[Alamar]

türlich gibs in c tokens...
strtok zb