FSO significa FileSystemObject, que es el objeto del sistema de archivos. El modelo de objetos FSO está incluido en la biblioteca de tipos Scripting (Scrrun.Dll). También contiene cinco objetos: Unidad, Carpeta, Archivo, FileSystemObject y TextStream, lo cual es muy conveniente para operar archivos y carpetas.
Propiedades del objeto del archivo FSO (Archivo)
DateCreated devuelve la fecha y hora de creación de la carpeta.
DateLastAccessed devuelve la fecha y hora en que se accedió al archivo por última vez
DateLastModified devuelve la fecha y hora en que se modificó por última vez el archivo
Drive devuelve el objeto Drive de la unidad donde se encuentra el archivo.
Nombre establece o devuelve el nombre del archivo
ParentFolder devuelve el objeto Carpeta de la carpeta principal del archivo.
Ruta devuelve la ruta absoluta del archivo, se pueden usar nombres de archivo largos
ShortName devuelve la forma 8.3 estilo DOS del nombre del archivo.
ShortPath devuelve una ruta absoluta estilo DOS 8.3 a un archivo
Tamaño devuelve el tamaño del archivo (bytes)
Tipo Si es posible, devuelve una cadena que describe el tipo de archivo.
Métodos de objeto de archivo FSO (Archivo)
Uso del método de objeto de archivo FSO
CopyFile copia uno o más archivos en una nueva ruta
CreateTextFile crea un archivo y devuelve un objeto TextStream
DeleteFile elimina un archivo
OpenTextFile abre un archivo y devuelve un objeto TextStream para leer o agregar
Cambie el nombre del archivo:
Copie el código de código de la siguiente manera:
Función reName (nombre de origen, nombre de destino)
tenue ofso,ofile
establecer oFso=server.createobject("Scripting.FileSystemObject")
establecer oFile=oFso.getFile(Server.mappath(nombrefuente))
oFile.Name=nombreDest
Establecer oFso=Nada
Establecer oFile=Nada
Función final
Eliminar archivos:
Copie el código de código de la siguiente manera:
Función FSOdel(nombre de archivo)
tenue fso,f
establecer fso = server.CreateObject("scripting.filesystemobject")
f=servidor.MapPath(nombredearchivo)
si fso.FileExists(f) entonces
fso.DeleteFile f,verdadero
terminar si
establecer f = nada
establecer fso = nada
Función final
Reemplazar una cadena en un archivo:
Copie el código de código de la siguiente manera:
Función FSOreplace (nombre de archivo, destino, cadena de representación)
Dim objFSO,objCountFile,FiletempData
Establecer objFSO = Server.CreateObject("Scripting.FileSystemObject")
Establecer objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Cerrar
FiletempData=Reemplazar(FiletempData,Destino,repString)
Establecer objCountFile=objFSO.CreateTextFile(Server.MapPath(nombre de archivo),True)
objCountFile.Escribir archivotempData
objCountFile.Cerrar
Establecer objCountFile=Nada
Establecer objFSO = Nada
Función final
<%
'************************************************ * *****
'Nombre de la función: CreateFolder(sPath)
'Función: Crear directorio
'Parámetro: sPath: ruta de directorio relativa creada
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
'respuesta.Escribir createfolder("/dgsunshine/UploadFile/demo1/")
Función CrearCarpeta(sPath)
En caso de error Continuar siguiente
Dim Fso,Arrfolder,Carpeta,i,j
Si sPath="" entonces
CrearCarpeta = Falso
Función de salida
Terminar si
Si Left(sPath,1) = "/" Entonces
Carpeta = "/"
sPath = Medio(sPath,2,Len(sPath))
Demás
Carpeta = "./"
Terminar si
si Derecha(sPath,1) = "/" entonces sPath = Izquierda(sPath,Len(sPath)-1)
ArrFolder = Dividir(sPath,"/")
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
Para i = 0 a Ubound (ArrFolder)
Si i = 0 entonces
Carpeta = Carpeta y ArrFolder(i) y "/"
Demás
Carpeta = Carpeta y ArrFolder(i) y "/"
Terminar si
Si Fso.folderExists(Server.MapPath(Folder)) = False entonces
respuesta.Escribir servidor.MapPath(carpeta)
Fso.createFolder(Servidor.MapPath(Carpeta))
Terminar si
Próximo
Establecer Fso = nada
Si Número de error <> 0 entonces
Err.claro()
CrearCarpeta = Falso
Demás
CrearCarpeta = Verdadero
Terminar si
Función final
Función getFile(paramFilePath)
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
Establecer Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Establecer Fso_Read = Nada
Establecer Fso = Nada
Función final
'************************************************ * *****
'Nombre de función: CreateFile(paramFileContent,paramFilePath)
'Función: Crear archivo
'Parámetro: paramFileContent 'El contenido del archivo
' paramFilePath 'Nombre del archivo (excluyendo la ruta)
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función CrearArchivo(paramFileContent,paramFilePath)
En caso de error Continuar siguiente
Dim Fso,fEscribir
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
Establecer fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write parámetroFileContent
fEscribir.cerrar()
Establecer fWrite = nada
Establecer Fso = nada
Si número de error <> 0 entonces
Err.claro()
CrearArchivo = Falso
Demás
CrearArchivo = Verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de función: DelFile(FilePath)
'Función: eliminar archivos
'Parámetro: FilePath 'Ruta de archivo de varios archivos separados por "|"
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función DelFile(RutaDeArchivo)
En caso de error Continuar siguiente
Dim fso,arrFile,i
Si GetSafeStr(FilePath,"")="" entonces
CrearCarpeta = falso
Función de salida
Terminar si
arrFile = Dividir(RutaArchivo,"|")
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
para i=0 a UBound(arrFile)
RutaDeArchivo = arrFile(i)
Si Fso.FileExists (Server.MapPath (FilePath)) entonces
Fso.DeleteFile Server.MapPath(FilePath)
Terminar si
Próximo
Establecer fso = nada
Si errar entonces
Err.claro()
DelFile = falso
Demás
DelFile = verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de función: DelFolder(RutaCarpeta)
'Función: eliminar directorio
'Parámetro: FolderPath 'Ruta del directorio' Varios directorios están separados por "|"
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función DelFolder(RutaCarpeta)
En caso de error Continuar siguiente
Dim Fso,arrFolder,i
Si GetSafeStr(FolderPath,"")="" entonces
DelFolder = falso
Función de salida
Terminar si
arrFolder = Dividir(RutaCarpeta,"|")
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
Para i=0 a UBound(arrFolder)
RutaCarpeta = arrFolder(i)
Si Fso.folderexists (Server.MapPath (FolderPath)) entonces
Fso.deleteFolder Server.MapPath(FolderPath)
Terminar si
Próximo
Si errar entonces
Err.claro()
DelFolder = falso
'ShowError "Error al eliminar el directorio", ""
demás
DelFolder = verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de la función: IsExistFile(FilePath)
'Función: Determinar si el archivo o directorio existe
'Parámetro: FilePath 'Ruta de archivo de varios archivos separados por "|"
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función IsExistFile(FilePath)
En caso de error Continuar siguiente
Dim fso,arrFile,i
Si GetSafeStr(FilePath,"")="" entonces
IsExistFile = falso
Terminar si
arrFile = Dividir(RutaArchivo,"|")
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
para i=0 a UBound(arrFile)
RutaDeArchivo = arrFile(i)
Si Fso.FileExists (Server.MapPath (FilePath)) entonces
IsExistFile = Verdadero
Terminar si
Si Fso.folderexists (Server.MapPath (FilePath)) entonces
IsExistFile = Verdadero
Terminar si
Próximo
Establecer fso = nada
Si errar entonces
Err.claro()
IsExistFile = falso
'ShowError "Error al determinar si existe el archivo o directorio",""
demás
IsExistFile = verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de función: DelFile(FilePath)
'Función: eliminar archivos o directorios
'Parámetro: FilePath 'Ruta de archivo de varios archivos separados por "|"
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función DelFile(RutaDeArchivo)
En caso de error Continuar siguiente
Dim fso,arrFile,i
Si GetSafeStr(FilePath,"")="" entonces
CrearCarpeta = falso
Terminar si
arrFile = Dividir(RutaArchivo,"|")
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
para i=0 a UBound(arrFile)
RutaArchivo = arrFile(i)
Si Fso.FileExists (Server.MapPath (FilePath)) entonces
Fso.DeleteFile Server.MapPath(FilePath)
Terminar si
Si Fso.folderexists (Server.MapPath (FilePath)) entonces
Fso.deleteFolder Server.MapPath(FilePath)
Terminar si
Próximo
Establecer fso = nada
Si errar entonces
Err.claro()
DelFile = falso
'ShowError "Error al eliminar el archivo o directorio",""
demás
DelFile = verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de la función: ReNameFile((nombreantiguo,nombrenuevo)
'Función: Cambiar el nombre de archivos o directorios
'Parámetro: strOldName 'Varios nombres de archivos originales están separados por "|"
' strNewName ' Varios nombres de archivos nuevos están separados por "|"
'Por favor mantenga los dos parámetros anteriores consistentes
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función ReNameFile(strOldName,strNewName)
En caso de error Continuar siguiente
Dim fso,arrOld,arrNew,i,oldName,newName
antiguo = GetSafeStr(strOldName,"")
Nuevoarchivo = GetSafeStr(strNewName,"")
Si antiguo ="" o Newfile = "" entonces
Cambiar nombre de archivo = falso
Función de salida
Terminar si
arrOld = Split(strOldName,"|")
arrNuevo = Split(strNuevoNombre,"|")
Si UBound(arrOld)<> UBound(arrNew) entonces
Cambiar nombre de archivo = falso
Función de salida
Terminar si
Establecer Fso = Server.CreateObject ("Scripting.FileSystemObject")
para i=0 a UBound(arrOld)
nombreantiguo = Server.MapPath(arrOld(i))
nuevoNombre = Servidor.MapPath(arrNuevo(i))
Si Fso.FileExists(oldName) y no Fso.FileExists(newName) entonces
fso.MoveFile nombre antiguo, nombre nuevo
'ReNameFile = Verdadero
Terminar si
Próximo
Establecer fso = nada
Si Número de error <> 0 Entonces
Err.claro()
Cambiar nombre de archivo = falso
Demás
Cambiar nombre de archivo = Verdadero
Terminar si
Función final
'************************************************ * *****
'Nombre de la función: CopyFiles((TempSource,TempEnd)
'Función: Copiar archivos o directorios
'Parámetro: TempSource 'Varios nombres de archivos fuente están separados por "|"
'TempEnd' Varios nombres de archivos de destino están separados por "|"
' Nota: Mantenga los dos parámetros anteriores consistentes y ambos son rutas completas.
'Ha sido procesado por el método Server.MapPath
'Valor de retorno: verdadero en caso de éxito, falso en caso de error
'************************************************ * *****
Función Copiar archivos (TempSource, TempEnd)
En caso de error Continuar siguiente
Copia tenueFSO,arrSource,arrEnd
Copiar archivos = falso
Establecer CopyFSO = Server.CreateObject ("Scripting.FileSystemObject")
Si TempSource ="" o TempEnd = "" entonces
ErrRaise "Copiar archivo o directorio", "La condición está vacía"
Copiar archivos = falso
Función de salida
Terminar si
arrSource = Dividir(TempSource,"|")
arrEnd = Dividir(TempEnd,"|")
Si UBound(arrSource) <> UBound(arrEnd) entonces
Copiar archivos = falso
Función de salida
Terminar si
para i=0 a UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
SI CopyFSO.FileExists (srcName) y no CopyFSO.FileExists (tarName) entonces
CopyFSO.CopyFile nombre_origen,nombretar
Copiar archivos = verdadero
Terminar si
SI CopyFSO.FolderExists (srcName) y no CopyFSO.FolderExists (tarName) entonces
CopiarFSO.CopyFolder srcName,tarName
Copiar archivos = verdadero
Terminar si
Próximo
Establecer CopyFSO = Nada
Si errar entonces
'Error.borrar()
Copiar archivos = falso
Terminar si
Función final
%>