Clase de operación de archivo/carpeta ASP FSO

Recomendado: función de procesamiento de tiempo ASP
Una función del tiempo de conversión. El procesamiento de tiempo en KingCMS también es muy poderoso, por lo que puede verificarlo si tiene tiempo. La función Date () en PHP es tan poderosa que no puedo evitar usar ASP para imitarla ... pero la escribí hasta el día, pero aún no lo he escrito. Por lo tanto, esta función aún no se ha formateado con horas, minutos y segundos, y la agregaré después de tener tiempo. % '******

Como se mencionó anteriormente, esto solo une algunas funciones. De hecho, es mejor poner algunos métodos de conjunto de funciones en el programa.

Funciones principales:

1. Crea una carpeta de eliminación

2. Obtenga el nombre y el número de carpetas en una carpeta

3. Obtenga el nombre del archivo y el número de archivos en una carpeta

4. Verifique si existe una carpeta

5. Verifique si existe un archivo

6. Eliminar el archivo

7. Lea el contenido de un archivo

7. Crea un archivo y escriba el contenido en este archivo

En general, hay dos funciones: una es la operación de archivo y la otra es la operación de la carpeta. Lo acabo de escribir en base a mis necesidades de ese "sistema de gestión de trabajos en línea" y no es adecuado para todos ...

<%

'******************************

'Nombre: clase de operación FSO

'Autor: Leng Yue, Xilou

'Fecha: 2006-3-1

'Sitio web: www.xilou.net/ | www.chinacms.org

'Descripción: clase de operación FSO

'******************************

Clase FSOCLS

Objeto privado FSO '//

Public fsoobj '// objeto de interfaz pública

'// Inicialización, constructor

Sub class_initialize privado

Establecer fso = createObject ("scripting.filesystemObject")

Establecer fsoObj = FSO

Final

'// finalizar, libera el constructor

Sub class_merminate privado

Establecer FSO = nada

Establecer fsoObj = nada

Final

'=================================================================

Función ISFileExists (BYVAL FileDir)

'Juzga si el archivo existe. Devolver verdadero si existe, de lo contrario regresa falso

'El parámetro Artedir es la ruta absoluta al archivo

Si FSO.FileExists (FileDir) entonces

IsfileExists = verdadero

Demás

IsfileExists = falso

Final si

Función final

Función getFiletext (Byval FileDir)

'Lea el contenido del archivo, si existe, devuelve el contenido del archivo, de lo contrario, devuelve falso

'El parámetro Artedir es la ruta absoluta al archivo

Si isfileExists (FileDir) entonces

Atenuado

Establecer F = FSO.OPENTEXTFILE (FileDir)

GetFileText = F.Readall

Establecer f = nada

Demás

GetFiletext = falso

Final si

Función final

Function createFile (Byval FileDir, ByVal fileContent)

'Crear un archivo y escribir contenido

'La operación devuelve verdadero para el éxito, de lo contrario devuelve falso

Si isfileExists (FileDir) entonces

CreateFile = falso

Función de salida

Demás

Atenuado

Establecer F = FSO.CreateTextFile (FileDir)

F.WRITE FILECONTENT

CreateFile = True

F.clar

Final si

Función final

Función Delfile (BYVAL FileDir)

'Eliminar un archivo y devolver verdadero con éxito, de lo contrario devuelve falso

'El parámetro Artedir es la ruta absoluta al archivo

Si isfileExists (FileDir) entonces

FSO.DeleteFile (FileDir)

Delfile = True

Demás

Delfile = falso

Final si

Función final

Compartir: la clase de eventos ASP Asplib-EventProvider.class.asp se usa para obtener IP, etc.
El autor es tan meticuloso que encapsula todas estas cosas en clases. Se acabó un poco. Estas cosas pueden encapsularse como procesos o funciones. La sub y la función también están encapsuladas, y no tiene que ser una clase. Su biblioteca de archivos no es necesariamente todas las clases, es necesario alguna sub y función. Las funciones implementadas incluyen 1, showInfo (e_title, c_url, e_n