Code d'implémentation de la classe Fso, les amis qui apprennent la classe asp peuvent s'y référer. Ce code est relativement ancien. Copiez le code comme suit :
<%
'================================================== = ===============
'= Version du système : 1.0 =
'= Version du fichier : 1.0 =
'= Date de création du texte : 2005-10-31 =
'================================================== = ===============
Classe Cls_IO
Objet système de fichiers privé
Sous-classe privée_Terminate()
Si IsObject (FileSystemObject) Alors
Définir FileSystemObject = Rien
Fin si
Fin du sous-marin
'//Créer un objet FileSystemObject
Fonction publique Init_Object()
En cas d'erreur, reprendre ensuite
Si ce n'est pas IsObject (FileSystemObject) alors
Définir FileSystemObject = Server.CreateObject (Scripting.FileSystemObject)
Si Err.Number <> 0 Alors
Init_Object = Faux
Err.Effacer
Fonction de sortie
Autre
Init_Object = Vrai
Fin si
Fin si
Fonction de fin
Fichier de suppression de sous-public (ByVal Str)
En cas d'erreur, reprendre ensuite
Appelez FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Fin du sous-marin
Fonction publique IsFolder (ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Fonction de fin
Fonction publique ShowFolder (ByVal Str)
Dim Obj_Dossier,Obj_File
Définir Obj_Folder = FileSystemObject.GetFolder (Server.MapPath (Str))
Définir ShowFolder = Obj_Folder.Files
Définir Obj_Folder = Rien
Fonction de fin
Fin du cours
%>