Código de implementação da classe Fso, amigos que estão aprendendo a classe asp podem consultá-lo. Este código é relativamente antigo. Copie o código do código da seguinte forma:
<%
'================================================ ================
'= Versão do sistema: 1.0 =
'= Versão do arquivo: 1.0 =
'= Data de criação do texto: 31/10/2005 =
'================================================ ================
Classe Cls_IO
FileSystemObject privado
Subclasse Privada_Terminate()
Se IsObject(FileSystemObject) Então
Definir FileSystemObject = Nada
Terminar se
Finalizar sub
'//Cria objeto FileSystemObject
Função Pública Init_Object()
Em caso de erro, retomar o próximo
Se não for IsObject(FileSystemObject) então
Definir FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
Se Err.Number <> 0 Então
Objeto_inicial = Falso
Err.Limpar
Função de saída
Outro
Objeto_inicial = Verdadeiro
Terminar se
Terminar se
Função final
Sub DeleteFile público (ByVal Str)
Em caso de erro, retomar o próximo
Chame FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Finalizar sub
Função pública IsFolder (ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Função final
Função pública ShowFolder (ByVal Str)
Dim Obj_Folder, Obj_File
Definir Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Definir ShowFolder = Obj_Folder.Files
Definir Obj_Folder = Nada
Função final
Fim da aula
%>