FSO-Klassenimplementierungscode, Freunde, die die Asp-Klasse lernen, können darauf verweisen. Dieser Code ist relativ alt. Kopieren Sie den Codecode wie folgt:
<%
'============================================== = ===============
'= Systemversion: 1.0 =
'= Dateiversion: 1.0 =
'= Texterstellungsdatum: 31.10.2005 =
'============================================== = ===============
Klasse Cls_IO
Privates FileSystemObject
Private Sub Class_Terminate()
Wenn IsObject(FileSystemObject) Dann
Setzen Sie FileSystemObject = Nothing
Ende wenn
Sub beenden
'//FileSystemObject-Objekt erstellen
Öffentliche Funktion Init_Object()
Bei Fehler Weiter fortsetzen
Wenn nicht IsObject(FileSystemObject) Dann
Setze FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
Wenn Err.Number <> 0, dann
Init_Object = False
Fehler.Klar
Exit-Funktion
Anders
Init_Object = True
Ende wenn
Ende wenn
Funktion beenden
Öffentliche Sub-DeleteFile(ByVal Str)
Bei Fehler Weiter fortsetzen
Call FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Sub beenden
Öffentliche Funktion IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Funktion beenden
Öffentliche Funktion ShowFolder(ByVal Str)
Dimmen Sie Obj_Folder,Obj_File
Setze Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Legen Sie ShowFolder = Obj_Folder.Files fest
Setze Obj_Folder = Nothing
Funktion beenden
Unterricht beenden
%>