¿Cuáles son las funciones de operación de archivos comúnmente utilizadas de los objetos FileSystem?
1. raíz
Formato de función raíz()
La descripción de la función devuelve una variable de cadena de ruta
Código de aplicación 'cadena de muestra = c:/intels/jingcaichunfeng/'
Raíz de función pública()
raíz = Solicitud.ServerVariables(Appl_Physical_Path)
Función final
2. URL
URL del formato de función()
La descripción de la función devuelve una variable de cadena URL
Código de aplicación 'cadena de muestra = http://www.intels.net/filesys.asp'
URL de función pública()
url =http://&Request.ServerVariables(Nombre_del_servidor)
&Request.ServerVariables(Script_Name)
Función final
3.mkdir
Formato de función mkdir(DIrName)
Función Descripción Crear un directorio y devolver información.
Código de aplicaciónFunción pública mkdir(xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FolderExists (xVar) Entonces
msg =¡Lo sentimos, el directorio ya existe!
Demás
Sys.CrearCarpeta(xVar)
msg =¡Felicitaciones, el directorio fue creado exitosamente!
Terminar si
Establecer sistema = nada
mkdir = mensaje
Función final
4.rmdir
Formato de función rmdir(DirName)
Descripción de la funciónEliminar un directorio y devolver información
Código de aplicaciónFunción pública rmdir(xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FolderExists (xVar) Entonces
Sys.DeleteFolder(xVar)
msg =¡Felicitaciones, el directorio se ha eliminado exitosamente!
Demás
msg =¡Lo sentimos, el directorio aún no ha sido creado!
Terminar si
Establecer sistema = nada
rmdir = mensaje
Función final
5. isdir
Formato de función isdir(DirName)
Descripción de la función Comprueba si existe un directorio y devuelve información.
Código de aplicaciónFunción pública isdir(xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FolderExists (xVar) Entonces
mensaje = Verdadero
Demás
mensaje = falso
Terminar si
Establecer sistema = nada
isdir = mensaje
Función final
6.cpdir
Formato de función cpdir(NombreDir, Destino, Sobrescribir)
Descripción de la función: copiar carpetas y devolver información
Código de aplicaciónFunción pública cpdir(xVar, yVar, zVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FolderExists (xVar) Entonces
Sys.CopyFolder xVar, raíz&yVar, zVar
msg =¡Felicitaciones, la copia del directorio fue exitosa!
Demás
msg =Lo sentimos, ¡no se encontró el directorio que estaba buscando!
Terminar si
Establecer sistema = nada
cpdir=mensaje
Función final
7.mvdir
Formato de función mvdir(NombreDir, Destino)
Función Descripción Mover una carpeta y devolver información
Código de aplicaciónFunción pública mvdir(xVar, yVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FolderExists (xVar) Entonces
Sys.MoveFolder xVar, raíz y yVar
msg =¡Felicitaciones, el directorio ha sido movido!
Demás
msg =Lo sentimos, ¡no se encontró el directorio que estaba buscando!
Terminar si
Establecer sistema = nada
mvdir = mensaje
Función final
8.isarchivo
El formato de la función es archivo (nombre de archivo)
Descripción de la función: comprobar si el archivo existe y devolver información
Código de aplicación Función pública es archivo (xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
mensaje = Verdadero
Demás
mensaje = falso
Terminar si
Establecer sistema = nada
isfile = mensaje
Función final
9. archivo w
Formato de función wfile(Nombre de archivo, Sobrescribir, Cadena)
La descripción de la función escribe una cadena en un archivo y devuelve información
Código de aplicaciónFunción pública wfile(xVar, yVar, zVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si yVar entonces
Establecer texto = Sys.OpenTextFile(xVar, 2)
Escritura de texto (zVar)
Texto.Cerrar
msg =¡Felicitaciones, el archivo fue creado y guardado exitosamente!
Demás
Si Sys.FileExists (xVar) Entonces
msg =¡Lo siento, el archivo ya existe!
Terminar si
Establecer sistema = nada
wfile=mensaje
Función final
10.rarchivo
Formato de función rfile(Nombre de archivo)
La descripción de la función lee un archivo y devuelve información.
Código de aplicaciónFunción pública rfile(xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
Establecer texto = Sys.OpenTextFile(xVar, 1)
mensaje = Txt.ReadAll
Texto.Cerrar
Demás
msg =¡Lo sentimos, el archivo no existe!
Terminar si
Establecer sistema = nada
rfile=mensaje
Función final
11. un archivo
Formato de función afile(Nombre de archivo, Cadena)
Descripción de la función Agrega una cadena a un archivo y devuelve la información.
Código de aplicaciónFunción pública afile(xVar, zVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
Establecer texto = Sys.OpenTextFile(xVar, 8)
Escritura de texto (zVar)
Texto.Cerrar
msg =¡Felicitaciones, el archivo se agregó exitosamente y se guardó!
Demás
msg =¡Lo sentimos, el archivo no existe!
Terminar si
Establecer sistema = nada
archivo = mensaje
Función final
12.cparchivo
Formato de función cpfile(Nombre de archivo, Destino, Sobrescribir)
Descripción de la función: copiar un archivo y devolver información
Código de aplicaciónFunción pública cpfile(xVar, yVar, zVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
Sys.CopyFile xVar, raíz&yVar, zVar
msg =¡Felicitaciones, el archivo se copió exitosamente!
Demás
msg =¡Lo sentimos, la copia del archivo falló!
Terminar si
Establecer sistema = nada
archivocp = mensaje
Función final
13. archivo mv
Formato de función mvfile(Nombre de archivo, Destino)
Función Descripción Mover un archivo y devolver información
Código de aplicaciónFunción pública mvfile(xVar, yVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
Sys.MoveFile xVar, raíz y yVar
msg =¡Felicitaciones, el archivo se movió exitosamente!
Demás
msg =Lo sentimos, ¡falló el movimiento del archivo!
Terminar si
Establecer sistema = nada
mvfile = mensaje
Función final
14.archivo rm
Formato de función rmfile(Nombre de archivo)
Descripción de la funciónEliminar un archivo y devolver información
Código de aplicaciónFunción pública rmfile(xVar)
Establecer Sys = Server.CreateObject(Scripting.FileSystemObject)
Si Sys.FileExists (xVar) Entonces
Sys.DeleteFile(xVar)
msg =¡Felicitaciones, el archivo se eliminó exitosamente!
Demás
msg =Lo sentimos, ¡falló la eliminación del archivo!
Terminar si
Establecer sistema = nada
archivo rm = mensaje
Función final