Código de función de operación del archivo ASP FSO

Autor：Eve Cole Fecha de actualización：2025-01-31 03:36:02

Presentemos la función de operación del archivo FSO en ASP.

Atributo de objeto FSO File (File)

Datecreated Devuelve la fecha y hora de creación de la carpeta

DataLaastaccess devuelve la fecha y hora de la última visita al archivo

DataLaastModify devuelve la fecha y hora de la última modificación del archivo

La unidad Devuelve el objeto de unidad de la unidad donde se encuentra el archivo

Nombre Configuración o devolver los nombres de los archivos

ParentFolder Devuelve el objeto de carpeta de la carpeta principal del archivo

Ruta Devuelve la ruta absoluta del archivo, puede usar el nombre de archivo largo

Shortname Devuelve el formulario 8.3 de estilo Dos de Dos

ShortPath devuelve la ruta absoluta de archivo 8.3 de estilo Dos

El tamaño devuelve el tamaño del archivo (byte)

Si el tipo puede, devuelva una cadena de instrucciones de tipo de archivo

Método de objeto FSO File (File)

Método del objeto de archivo FSO use

CopyFile Copie uno o más archivos a la 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

Archivo de nombre de Rena:

El código es el siguiente:

Función renombrar (SourceName, DestName)

Dim Ofso, Ofile

Establecer OffSo = Server.CreateObject (scripting.filesystemObject)

set Ofile = offso.getFile (server.mappath (fuente)))

ofile.name = Destname

Establecer Offso = nada

Conjunto OFILE = nada

Función final

Eliminar archivos:

El código es el siguiente:

Función fsodel (nombre de archivo)

Dim FSO, F

establecer fso = server.createObject (scripting.filesystemObject)

F = Server.Mappath (nombre de archivo)

Si fso.fileExist (f) entonces

Fso.deletefile F, verdadero

final si

establecer f = nada

Establecer FSO = nada

Función final

Cambie la cadena en el archivo:

El código es el 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.writ filetempdata

objcountfile.close

Establecer objcountfile = nada

Establecer objfso = nada

Función final

'********************************************************** ************************************************************ ************************************************************ ************************************************************ ************************************************************ **************, ******

'Nombre de la función: CreateFolder (Spad)

'Función: crear un directorio

'Parámetros: Spath: la ruta de directorio relativo creada

'Valor de retorno: éxito Verdadero, Fail False

'Response.Write CreateFolder (/DGSUNSHINE/uploadFile/Demo1/)

Función CreateFolder (SPI)

En el currículum de error siguiente

Dim FSO, Arrfolder, Carpeta, I, J

Si espacio = entonces

CreateFolder = False

Función de salida

Final si

Si se deja (spath, 1) = / luego

Carpeta = /

Spath = Mid (Spath, 2, Len (Spath)))

Demás

Carpeta = ./

Final si

Si es correcto (spath, 1) = / luego spath = izquierda (spad, len (spad) -1)

Arrolder = split (spath,/)

Establecer fso = server.createObject (scripting.filesystemObject)

Para i = 0 a Ubound (arroleta)

Si yo = 0 entonces

Carpeta = carpeta y arroleta (i) & /

Demás

Carpeta = carpeta y arroleta (i) & /

Final si

If fso.foldeRexists (server.mappath (carpeta)) = falso entonces

Response.Write Server.Mappath (carpeta)

FSO.CreateFolder (server.mappath (carpeta))

Final si

Establecer FSO = nada

Si err.number <> 0 entonces

Err.Clear ()

CreateFolder = False

Demás

CreateFolder = True

Final si

Función final

Función GetFile (ParamFilePath)

Establecer fso = server.createObject (scripting.filesystemObject)

Establecer fso_read = fso.opentextfile (server.mappath (paramfilePath), 1, falso, -2)

getFile = fso_read.readall

Establecer fso_read = nada

Establecer FSO = nada

Función final

'Nombre de la función: CreateFile (ParamFileContent, ParamFilePath)

'Función: crear un archivo

'Parámetro: paramFileContent' File Content

Nombre de archivo 'ParamFilepath' (excluyendo ruta)

'Valor de retorno: éxito Verdadero, Fail False

Function CreateFile (ParamFileContent, ParamFilePath)

En el currículum de error siguiente

Dim FSO, FWrite

Establecer fso = server.createObject (scripting.filesystemObject)

Establecer fwrite = fso.createTextFile (server.mappath (paramfilePath), verdadero)

fwrite.write ParamFileContent

fwrite.close ()

Establecer fwrite = nada

Establecer FSO = nada

Si err.number <> 0 entonces

Err.Clear ()

CreateFile = falso

Demás

CreateFile = True

Final si

Función final

'Nombre de la función: Delfile (FilePath)

'Función: eliminar archivos

Ruta de archivo 'parámetro: filePath' múltiples archivos para múltiples archivos |

'Valor de retorno: éxito Verdadero, Fail False

Función Delfile (FilePath)

En el currículum de error siguiente

Dim FSO, Arrfile, yo

If getSafestr (filepath,) = entonces

CreateFolder = False

Función de salida

Final si

Arrfile = split (filepath, | |)

Establecer fso = server.createObject (scripting.filesystemObject)

para i = 0 a Ubound (arrfile)

Filepath = arrfile (i)

Si fso.fileExist (server.mappath (filepath) entonces) entonces

FSO.DeleteFile Server.Mappath (FilePath)

Final si

Establecer FSO = nada

Si err entonces

Err.Clear ()

Delfile = falso

Demás

Delfile = True

Final si

Función final

'Nombre de la función: Delfolder (FolderPath)

'Función: eliminar el directorio

'Parámetro: carpeta' rutas de directorio 'Eliminación de directorio múltiple |

'Valor de retorno: éxito Verdadero, Fail False

Función Delfolder (FolderPath)

En el currículum de error siguiente

Dim FSO, arroleta, yo

If getSafeStr (folderPath,) = entonces

Delfolder = falso

Función de salida

Final si

Arrolder = split (folderPath, |)

Establecer fso = server.createObject (scripting.filesystemObject)

Para i = 0 a Ubound (arroleta)

FolderPath = arrolder (i)

Si FSO.FoldeTrexists (Server.Mappath (FolderPath) entonces) entonces

FSO.DeleteFolder Server.Mappath (FolderPath)

Final si

Si err entonces

Err.Clear ()

Delfolder = falso

'Delete de ducha Eliminar el directorio falló,

demás

Delfolder = True

Final si

Función final

'Nombre de la función: ISEXISTFILE (FilePath)

'Función: determine si existe el archivo o el directorio

Ruta de archivo 'parámetro: filePath' múltiples archivos para múltiples archivos |

'Valor de retorno: éxito Verdadero, Fail False

Función isExistFile (FilePath)

En el currículum de error siguiente

Dim FSO, Arrfile, yo

If getSafestr (filepath,) = entonces

IsExistFile = falso

Final si

Arrfile = split (filepath, | |)

Establecer fso = server.createObject (scripting.filesystemObject)

para i = 0 a Ubound (arrfile)

Filepath = arrfile (i)

Si fso.fileExist (server.mappath (filepath) entonces) entonces

IsExistFile = True

Final si

Si FSO.FoldeRexist (Server.Mappath (FilePath)) entonces

IsExistFile = True

Final si

Establecer FSO = nada

Si err entonces

Err.Clear ()

IsExistFile = falso

'Juzgando el ducha de ducha si el archivo o el directorio falla,

demás

IsExistFile = True

Final si

Función final

'Nombre de la función: Delfile (FilePath)

'Función: Eliminar archivos o directorio

Ruta de archivo 'parámetro: filePath' múltiples archivos para múltiples archivos |

'Valor de retorno: éxito Verdadero, Fail False

Función Delfile (FilePath)

En el currículum de error siguiente

Dim FSO, Arrfile, yo

If getSafestr (filepath,) = entonces

CreateFolder = False

Final si

Arrfile = split (filepath, | |)

Establecer fso = server.createObject (scripting.filesystemObject)

para i = 0 a Ubound (arrfile)

Filepath = arrfile (i)

Si fso.fileExist (server.mappath (filepath) entonces) entonces

FSO.DeleteFile Server.Mappath (FilePath)

Final si

Si FSO.FoldeRexist (Server.Mappath (FilePath)) entonces

FSO.DeleteFolder Server.Mappath (FilePath)

Final si

Establecer FSO = nada

Si err entonces

Err.Clear ()

Delfile = falso

'Falló el archivo o directorio de eliminación de ducha,

demás

Delfile = True

Final si

Función final

'Nombre de la función: RenameFile (OldName, Newname)

'Función: cambiar el nombre de archivo o directorio

'Parámetro: StroldName' Nombre de archivo original Multi -Use |

'Strnewname' nuevo nombre de archivo múltiple -uso |

'Por favor, mantenga los mismos dos parámetros consistentes

'Valor de retorno: éxito Verdadero, Fail False

Función renameFile (StroldName, STRNeWName)

En el currículum de error siguiente

Dim FSO, Arrold, Arrnew, I, Oldname, Newname

Old = getSafestr (StroldName,)

Newfile = getSafeStr (strNnewName,)

Si viejo = o newfile = entonces

RenameFile = falso

Función de salida

Final si

Arold = Split (StroldName, |)

ArrNew = Split (StrNeWname, |)

Si Ubound (Arrold) <> Ubound (ArrNew) entonces

RenameFile = falso

Función de salida

Final si

Establecer fso = server.createObject (scripting.filesystemObject)

para i = 0 a Ubound (flecha)

Oldname = Server.Mappath (Arrold (i))

NewName = Server.Mappath (ArrNew (i))

Si fso.FileExist (OldName) y no FSO.FileExists (Newname) entonces

FSO.MoveFile Oldname, Reinicio

'RenameFile = True

Final si

Establecer FSO = nada

Si err.number <> 0 entonces

Err.Clear ()

RenameFile = falso

Demás

RenameFile = True

Final si

Función final

'Nombre de la función: CopyFiles (TempSource, Tempend)

'Archivo: Copie el archivo o el directorio

'Parámetro: templource' Nombre de archivo de origen Multi -Purpose |

'Tempend' Nombre de archivo Destable Multi -Purpose |

'Nota: mantenga los mismos dos parámetros anteriores, y ambos son la ruta completa,

'El método Servidor.mappath ha sido procesado

'Valor de retorno: éxito Verdadero, Fail False

Función CopyFiles (TempSource, Tempend)

En el currículum de error siguiente

Dim Copyfso, ArrSource, Llegue

CopyFiles = falso

Establecer copyfso = server.CreateObject (scripting.filesystemObject)

Si tempSource = o tempend = entonces

Errraise Copiar archivo o directorio, la condición está vacía

CopyFiles = falso

Función de salida

Final si

ArrSource = Split (TempSource, |)

Arrend = Split (Tempend, |)

Si Ubound (arrsource) <> Ubound (arbit) entonces

CopyFiles = falso

Función de salida

Final si

para i = 0 a Ubound (arrsource)

srcname = arrsource (i)

Tarname = Arrend (i)

Si copyfso.filexists (srcname) y no copyfso.fileExist (Tarname) entonces

Copyfso.copyfile srcname, tarname

CopyFiles = True

Final si

Si copyfso.foldeRexist (srcname) y no copyfso.foldrexist (tarname) entonces

Copyfso.CopyFolder Srcname, Tarname

CopyFiles = True

Final si

Establecer copyfso = nada

Si err entonces

'Err.Clear ()

CopyFiles = falso

Final si

Función final