+- net-board.net Archiv (https://net-board.net)
+-- Forum: Deine eigene Homepage (https://net-board.net/forumdisplay.php?fid=26)
+--- Forum: Scriptsprachen (+Datenbanksysteme) (https://net-board.net/forumdisplay.php?fid=19)
+---- Forum: Tutorials und Artikel: Programmieren und Datenbanken (https://net-board.net/forumdisplay.php?fid=15)
+---- Thema: [ASP] Datein am Server erstellen (/showthread.php?tid=2408)
[ASP] Datein am Server erstellen - Zerogiven - 17.08.2003
Also manchmal muss man einfach Text-Datein oder ähnliches am Server erstellen. Rein theoretisch kann man jeden Datentyp zum speichern nehmen. Ich habe ein Beispiel geschrieben, welches eine Text-Datei erstellt:
Code:
<%
dim filesys, filetxt, getname, path
' Ein Server Objekt wird erstellt
Set filesys = CreateObject("Scripting.FileSystemObject")
' Nun wird eine Text Datei erstellt. Hier kann man einen Speicherpfad angeben
Set filetxt = filesys.CreateTextFile("text_datei.txt", True)
' Der Pfad der Textdatei
path = filesys.GetAbsolutePathName("text_datei.txt")
' Der Name der Text Datei wird in eine Variable gespeichert
getname = filesys.GetFileName(path)
' Mit dieser Funktion schreiben wir einen Text in die Datei
filetxt.WriteLine("Dieser Text steht in der Text-Datei")
' Wir schliessen das Objekt
filetxt.Close
' Nun überprüfen wir ob die Datei auch erstellt wurde
If filesys.FileExists(path) Then
' Falls die Datei erstellt wurde, wird dieser Text ausgegeben
Response.Write ("Die Datei, '" & getname & "', wurde erfolgreich am Server erstellt.")
End If
%>So nun will ich euch noch ein paar Begriffe erklären:
Code:
Set filetxt = filesys.CreateTextFile("text_datei.txt", True)Hier kann man den Speicherpfad der Datei angeben. Dies muss keine TXT Datei sein. Mit dem Value true geben wir an, das die Datei erstellt werden muss. Wenn hier false stehen würde, müsste die Datei vorhanden sein.
Code:
If filesys.FileExists(path) ThenHier wird abgefragt, ob die Datei vorhanden ist.
So, ich hoffe euch konnte das Tutorial helfen.
mfg
Zerogiven