Código de implementación de la clase Fso, los amigos que estén aprendiendo la clase asp pueden consultarlo. Este código es relativamente antiguo. Copie el código de código de la siguiente manera:
<%
'=================================================== = ================
'= Versión del sistema: 1.0 =
'= Versión del archivo: 1.0 =
'= Fecha de creación del texto: 2005-10-31 =
'=================================================== = ================
Clase Cls_IO
Objeto de sistema de archivos privado
Subclase privada_Terminar()
Si esObjeto(FileSystemObject) Entonces
Establecer FileSystemObject = Nada
Terminar si
Subtítulo final
'//Crear objeto FileSystemObject
Función pública Init_Object()
En caso de error Continuar siguiente
Si no es IsObject (FileSystemObject) entonces
Establecer FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
Si Número de error <> 0 Entonces
Objeto_inicial = Falso
Err.Borrar
Función de salida
Demás
Objeto_inicial = Verdadero
Terminar si
Terminar si
Función final
Subeliminar archivo público (ByVal Str)
En caso de error Continuar siguiente
Llame a FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Subtítulo final
La función pública es Carpeta (ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Función final
Función pública Mostrar carpeta (ByVal Str)
Dim Obj_Folder,Obj_File
Establecer Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Establecer ShowFolder = Obj_Folder.Files
Establecer Obj_Folder = Nada
Función final
Fin de clase
%>