Erstellung eines Ordners nach vorheriger Pfadangabe Verfasst am: 25.03.2011, 19:54
Hallo liebe Community,
kurze Frage hinsichtlich der Erstellung eines Ordners bzw. mehrerer Ordner nach vorheriger Pfadangabe.
Folgendes möchte ich erreichen:
Zunächst möchte ich mit meinem Programm den Quellordner angeben, wo die Ordner erstellt werden sollen. Heißt also das sich der Explorer öffnet und ich dort z.B. den Ordner "C:\Test" angebe.
Anschließend möchte ich nun das in diesem Pfad ein ordner mit weiteren Unterordnern und einer Textdatei erstellt wird
z.B. C:\Test\Ordner1\Ordner2\Ordner3\Textdatei.txt
Wie gesagt wichtig ist, dass ich den Pfad vorher frei wählen kann, in welchem die Ordner erstellt werden.
Gruß Mike
Magier Newbie
Anmeldedatum: 24.09.2010 Beiträge: 3
Verfasst am: 21.04.2011, 00:50
Hoffe das hilft dir....
Code:
'Erstellt einen Dialog zur Auswahl von Ordnern
Dim obj_Folder As New FolderBrowserDialog
Dim str_Folder As String
'Sorgt 100% dafür das du einen Button für "Neuen Ordner anlegen" hast
obj_Folder.ShowNewFolderButton = True
'Wenn Dialog mit Ok beendet
If obj_Folder.ShowDialog = Windows.Forms.DialogResult.OK Then
'Versuche den Ordner zu erstellen, könnte ja sein das das nicht geht
Try
'Exemplarischer String für den Unterordner
str_Folder = obj_Folder.SelectedPath & "\Dein Unterdner"
'Erzeuge den Ordner
System.IO.Directory.CreateDirectory(str_Folder)
'Mache eine Datei auf
Dim obj_Stream As New System.IO.FileStream(str_Folder & "\Text.txt", IO.FileMode.Create)
'Erzeuge einen Writer....
Dim obj_Writer As New System.IO.StreamWriter(obj_Stream)
'Schreibe ein paar Zeichen rein
obj_Writer.WriteLine("Test123")
obj_Writer.Close() 'Schliesse
obj_Stream.Close() 'Schliesse
Catch ex As Exception
'Aubacke da ist was schief gegangen
MsgBox(ex.Message)
End Try
End If
Registrieren
Login
