Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon Skipper1 vom 29.01.2019, 12:33 Options
Durch Ordner Iterieren VB.Net
Hallo miteinander
ich habe folgendes Problem:
Und zwar habe ich ein Zielordner angegeben.
In diesem Zielordner sind ungefähr 4000 Files.
Ich habe jez nun ein VB Programm geschrieben welches per FolderDialog den Pfad zu dem Ordner angibt. Nun möchte ich durch alle diese Dateien gehen und jeweils etwas hineinschreiben...
Könnte mir jemand sagen, wie das Entsprechende Objekt oder Funktion heisst, wenn ich durch den Ordner "durch iterieren" möchte? Ich habe nur den Quellpfad des Ordners...
Ich wäre sehr dankbar!!
Grus Skipper
VB.Net
WinXP
ich habe folgendes Problem:
Und zwar habe ich ein Zielordner angegeben.
In diesem Zielordner sind ungefähr 4000 Files.
Ich habe jez nun ein VB Programm geschrieben welches per FolderDialog den Pfad zu dem Ordner angibt. Nun möchte ich durch alle diese Dateien gehen und jeweils etwas hineinschreiben...
Könnte mir jemand sagen, wie das Entsprechende Objekt oder Funktion heisst, wenn ich durch den Ordner "durch iterieren" möchte? Ich habe nur den Quellpfad des Ordners...
Ich wäre sehr dankbar!!
Grus Skipper
VB.Net
WinXP
Antwort 1 von coldice vom 04.02.2019, 11:17 Options
Hallo
Hier ist dein gewünschter Code.
Es werden aber keine Unterordner durchsucht sondern nur der angegebene Ordner.
MFG
Hier ist dein gewünschter Code.
Es werden aber keine Unterordner durchsucht sondern nur der angegebene Ordner.
MFG
Private Sub WriteToFiles
Dim l_Pfad As String = "c:\tempA\"
Dim l_FileSuche As String = "*.*"
Dim l_Text As String = "Mein Text"
Dim d As New IO.DirectoryInfo(l_Pfad)
Dim f() As IO.FileInfo
Dim s As IO.StreamWriter
f = d.GetFiles(l_FileSuche)
For Each item As IO.FileInfo In f
s = item.AppendText
s.WriteLine(l_Text)
s.Close()
Next
End Sub
Ähnliche Themen
samba ? hilfe ...
flying-dutchman 10.07.2007 - 49 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
