Propiedades del objeto FSO File (Archivo)
Realización de datos Devuelve la fecha y hora de la creación de esta carpeta
DataLastacciss devuelve la fecha y hora del último acceso al archivo
DataLastModified Devuelve la fecha y hora cuando el archivo se modificó por última vez
La unidad Devuelve el objeto de unidad de la unidad donde reside el archivo
Nombre establecido o devuelve el nombre del archivo
ParentFolder Devuelve el objeto de carpeta de la carpeta principal del archivo
Ruta Devuelve la ruta absoluta al archivo y puede usar un nombre de archivo largo
ShortName Devuelve el nombre del archivo en el formulario de estilo DOS 8.3
ShortPath Devuelve la ruta absoluta del archivo en formulario DOS Style 8.3
El tamaño devuelve el tamaño (bytes) del archivo
Escriba si es posible, devuelva una cadena de descripción para el tipo de archivo
Método de objeto FSO File (File)
Uso del método de objeto de archivo FSO
CopyFile Copie uno o más archivos a una nueva ruta
CreateTextFile crea un archivo y devuelve un objeto TextStream
Eliminar eliminar un archivo
OpenTextFile abre el archivo y devuelve el objeto TextStream para leer o agregar
Cambiar el nombre del archivo:
La copia del código es la siguiente:
Función renombrar (SourceName, DestName)
Dim Ofso, Ofile
Establecer OFSO = Server.CreateObject ("scripting.filesystemObject")
set ofile = ofSo.getFile (Server.Mappath (SourceName))
ofile.name = Destname
Establecer OFSO = nada
Conjunto OFILE = nada
Función final
Eliminar el archivo:
La copia del código es la siguiente:
Función fsodel (nombre de archivo)
Dim FSO, F
establecer fso = server.createObject ("scripting.filesystemObject")
F = Server.Mappath (nombre de archivo)
Si FSO.FileExists (f) entonces
fso.deletefile F, verdadero
final si
establecer f = nada
Establecer FSO = nada
Función final
Reemplace las cadenas en el archivo:
La copia del código es la siguiente:
Función fsoreplace (nombre de archivo, objetivo, repstring)
Dim objfso, objcountfile, filetempdata
Establecer objfso = server.createObject ("scripting.filesystemObject")
Establecer objCountFile = objfso.opentextfile (server.mappath (nombre de archivo), 1, verdadero)
Filetempdata = objCountFile.Readall
objcountfile.close
FiletempData = reemplazar (filetEMPDATA, Target, RepString)
Establecer objCountFile = objfso.createTextFile (server.mappath (nombre de archivo), verdadero)
objcountfile.write filetempdata
objcountfile.close
Establecer objcountfile = nada
Establecer objfso = nada
Función final
<%
'**************************************************************
'Nombre de la función: CreateFolder (Spath)
'Función: crear un directorio
'Path: Spath: la ruta del directorio relativo creado
'Valor de retorno: exitoso verdadero, fallido falso
'**************************************************************
'Response.Write CreateFolder ("/DGSUNSHINE/uploadFile/Demo1/")
Función CreateFolder (Spath)
En el currículum de error siguiente
Dim FSO, Arrfolder, Carpeta, I, J
Si spath = "" entonces
CreateFolder = False
Función de salida
Final si
Si se deja (spath, 1) = "/" entonces
Carpeta = "/"
Spath = Mid (Spath, 2, Len (Spath))
Demás
Carpeta = "./"
Final si
Si es correcto (Spath, 1) = "/" Entonces Spath = Left (Spath, Len (Spath) -1)
Arrolder = split (spath, "/")
Establecer fso = server.createObject ("scripting.filesystemObject")