Datei erstellen mit Wunsch Namen Verfasst am: 15.06.2009, 10:31
Beschreibung: Diese Funktion erstellt eine Text Datei mit Wunschnamen und optionalem Inhalt, natürlich kann man sie auch umschreiben für andere Datei Typen. Bei Aufruf der Funktion wird man aufgefordert den Speicherort anzugeben.
Funktion:
Code:
Public Function SaveTextFiles(ByVal FileName As String, Optional ByVal Content As String = "")<br /><br /> Try<br /> Dim FilePath As New FolderBrowserDialog<br /> FilePath.ShowDialog()<br /> Dim CompletePath As String = FilePath.SelectedPath & "" & FileName & ".txt"<br /> Dim Save As New System.IO.StreamWriter(CompletePath)<br /> Save.WriteLine(Content)<br /> Save.Flush()<br /> Save.Close()<br /> Catch<br /> Return 0<br /> End Try<br /> Return 1<br /><br />End Function
Beispiel:
Code:
SaveTextFiles("TextFileName", "Some Content to write in...")