Code de fonction de fonctionnement du fichier FSO ASP

Auteur：Eve Cole Date de mise à jour：2025-01-31 03:36:02

Présentez la fonction de fonctionnement du fichier FSO dans ASP.

Attribut d'objet FSO Fichier (fichier)

DateCreated renvoie la date et l'heure de la création du dossier

DatelaastAccessed renvoie la date et l'heure de la dernière visite au fichier

DatelaastModify renvoie la date et l'heure de la dernière modification du fichier

Le lecteur renvoie l'objet du lecteur du lecteur où se trouve le fichier

Paramètres de nom ou noms de fichiers

ParentFolder renvoie l'objet du dossier du dossier parent du fichier

Le chemin renvoie le chemin absolu du fichier, vous pouvez utiliser le nom de fichier long

Shortname Renvoie la forme DOS-Style 8.3 du nom du fichier

Short Path Renvoie DOS-Style 8.3 Forme de Fichier Absolu Path

La taille renvoie la taille du fichier (octet)

Si le type peut, renvoyez une chaîne d'instructions de type de fichier

Méthode d'objet FSO Fichier (fichier)

Méthode d'objet de fichier FSO Utilisation

Copier Copy Copy Un ou plusieurs fichiers sur le nouveau chemin

CreateTextFile crée un fichier et renvoie un objet TextStream

DeleteFile Supprimer un fichier

OpenTextFile ouvre le fichier et renvoie l'objet TextStream à lire ou à ajouter

Fichier de noms Rena:

Le code est le suivant:

Fonction Rename (SourceName, destname)

Dim Ofo, Ofile

set offso = server.createObject (scripting.fileSystemObject)

set ofile = offso.getFile (server.mappath (source)))

odile.name = destname

Set offso = rien

Set Ofile = rien

Fonction finale

Supprimer les fichiers:

Le code est le suivant:

Fonction fsodel (nom de fichier)

DIM FSO, F

set fso = server.createObject (scripting.fileSystemObject)

F = server.mappath (nom de fichier)

Si fso.fileexist (f) alors

Fso.deletefile f, vrai

terminer si

Définir F = rien

Définir FSO = rien

Fonction finale

Modifiez la chaîne dans le fichier:

Le code est le suivant:

Fonction fsoreplace (nom de fichier, cible, repstring)

DIM OBJFSO, OBJCOUNTFILE, FILETEMPDATA

SET OBJFSO = Server.CreateObject (Scripting.FileSystemObject)

Set objCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)

FilempData = objCountFile.readall

objCountFile.close

FilempData = Remplacer (filempdata, cible, repstring)

Set objCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)

objCountFile.Writ FileTempData

objCountFile.close

Définir objCountFile = rien

Définir objfso = rien

Fonction finale

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

'Nom de la fonction: CreateFolder (SPAD)

'Fonction: Créez un répertoire

'Paramètres: SPATH: le chemin du répertoire relatif créé

'Valeur de retour: succès vrai, échec faux

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

Fonction CreateFolder (SPI)

Sur l'erreur reprendre ensuite

DIM FSO, Arrfolder, dossier, I, J

Si l'espace = alors

CreateFolder = false

Fonction de sortie

Terminer si

Si vous êtes laissé (spath, 1) = / alors

Dossier = /

Spath = mid (spath, 2, len (spath))))

Autre

Dossier = ./

Terminer si

Si droit (spath, 1) = / puis spath = gauche (spad, len (spad) -1)

Arrfolder = Split (spath, /)

Set fso = server.createObject (scripting.fileSystemObject)

Pour i = 0 à Ubound (Arrfolder)

Si i = 0 alors

Dossier = dossier et arrfolder (i) & /

Autre

Dossier = dossier et arrfolder (i) & /

Terminer si

Si fso.foldrexists (server.mappath (dossier)) = false alors

réponse.write server.mappath (dossier)

Fso.createfolder (server.mappath (dossier))

Terminer si

Définir FSO = rien

Si err.number <> 0 alors

Err.clear ()

CreateFolder = false

Autre

CreateFolder = True

Terminer si

Fonction finale

Fonction getfile (paramfilepath)

Set fso = server.createObject (scripting.fileSystemObject)

Set fso_read = fso.opentextfile (server.mappath (paramfilepath), 1, false, -2)

getFile = fso_read.readall

Définir fso_read = rien

Définir FSO = rien

Fonction finale

'Nom de la fonction: CreateFile (paramfilecontent, paramfilepath)

'Fonction: créez un fichier

Paramètre: contenu de fichier paramfilecontent '

Nom de fichier 'Paramfilepath' (excluant le chemin)

'Valeur de retour: succès vrai, échec faux

Fonction CreateFile (paramfilecontent, paramfilepath)

Sur l'erreur reprendre ensuite

DIM FSO, FWRITE

Set fso = server.createObject (scripting.fileSystemObject)

Set fwrite = fso.createtextfile (server.mappath (paramfilepath), true)

fwrite.write paramfilecontent

fwrite.close ()

Set fwrite = rien

Définir FSO = rien

Si err.number <> 0 alors

Err.clear ()

CreateFile = false

Autre

CreateFile = true

Terminer si

Fonction finale

'Nom de la fonction: Delfile (filepath)

«Fonction: supprimer les fichiers

Paramètre: Filepath Chemin de fichier plusieurs fichiers pour plusieurs fichiers |

'Valeur de retour: succès vrai, échec faux

Fonction delfile (filepath)

Sur l'erreur reprendre ensuite

Dim fso, arrfile, i

Si getSaFerm (filepath,) = alors

CreateFolder = false

Fonction de sortie

Terminer si

Arrfile = Split (filepath, | |)

Set fso = server.createObject (scripting.fileSystemObject)

pour i = 0 à Ubound (Arrfile)

Filepath = Arrfile (i)

Si fso.fileexist (server.mappath (filepath) alors) alors

Fso.deletefile server.mappath (filepath)

Terminer si

Définir FSO = rien

Si err alors

Err.clear ()

Delfile = faux

Autre

Delfile = vrai

Terminer si

Fonction finale

'Nom de la fonction: Delfolder (FolderPath)

«Fonction: supprimez le répertoire

Paramètre: Folderpath 'Directory Paths' Multi-Directory Elimination |

'Valeur de retour: succès vrai, échec faux

Fonction Delfolder (FolderPath)

Sur l'erreur reprendre ensuite

DIM FSO, Arrfolder, je

Si getSaFerm (FolderPath,) = alors

Delfolder = false

Fonction de sortie

Terminer si

Arrfolder = Split (FolderPath, |)

Set fso = server.createObject (scripting.fileSystemObject)

Pour i = 0 à Ubound (Arrfolder)

Folderpath = Arrfolder (i)

Si fso.foldrexists (server.mappath (FolderPath) alors) alors)

Fso.deletefolder server.mappath (FolderPath)

Terminer si

Si err alors

Err.clear ()

Delfolder = false

«Downror Supprimer le répertoire a échoué,

autre

Delfolder = true

Terminer si

Fonction finale

'Nom de la fonction: iSexistfile (filepath)

«Fonction: déterminez si le fichier ou le répertoire existe

Paramètre: Filepath Chemin de fichier plusieurs fichiers pour plusieurs fichiers |

'Valeur de retour: succès vrai, échec faux

Fonction isExistfile (filepath)

Sur l'erreur reprendre ensuite

Dim fso, arrfile, i

Si getSaFerm (filepath,) = alors

ISexistfile = false

Terminer si

Arrfile = Split (filepath, | |)

Set fso = server.createObject (scripting.fileSystemObject)

pour i = 0 à Ubound (Arrfile)

Filepath = Arrfile (i)

Si fso.fileexist (server.mappath (filepath) alors) alors

IsExistFile = true

Terminer si

Si fso.foldrexist (server.mappath (filepath)) alors

IsExistFile = true

Terminer si

Définir FSO = rien

Si err alors

Err.clear ()

ISexistfile = false

«Downror à juger si le fichier ou le répertoire échoue,

autre

IsExistFile = true

Terminer si

Fonction finale

'Nom de la fonction: Delfile (filepath)

«Fonction: supprimer les fichiers ou répertoire

Paramètre: Filepath Chemin de fichier plusieurs fichiers pour plusieurs fichiers |

'Valeur de retour: succès vrai, échec faux

Fonction delfile (filepath)

Sur l'erreur reprendre ensuite

Dim fso, arrfile, i

Si getSaFerm (filepath,) = alors

CreateFolder = false

Terminer si

Arrfile = Split (filepath, | |)

Set fso = server.createObject (scripting.fileSystemObject)

pour i = 0 à Ubound (Arrfile)

Filepath = Arrfile (i)

Si fso.fileexist (server.mappath (filepath) alors) alors

Fso.deletefile server.mappath (filepath)

Terminer si

Si fso.foldrexist (server.mappath (filepath)) alors

Fso.deletefolder server.mappath (filepath)

Terminer si

Définir FSO = rien

Si err alors

Err.clear ()

Delfile = faux

«Downror Supprimer le fichier ou le répertoire a échoué,

autre

Delfile = vrai

Terminer si

Fonction finale

'Nom de la fonction: RenameFile (OldName, Newname)

'Fonction: renommer le fichier ou le répertoire

Paramètre: Stroldname 'Nom du fichier d'origine Multi -Use |

«STRNEWNAME» NOUVELLE NOM DE FILE MULTI-USE |

'Veuillez garder les deux mêmes paramètres cohérents

'Valeur de retour: succès vrai, échec faux

Fonction RenameFile (Stroldname, Strnewname)

Sur l'erreur reprendre ensuite

Dim Fso, Arrold, Arrnew, I, Oldname, Newname

Old = getSafestr (stoldname,)

Newfile = getSaFerm (strNewname,)

Si vieux = ou newfile = alors

Renamefile = false

Fonction de sortie

Terminer si

Arold = Split (Stroldname, |)

Arrnew = Split (strNewname, |)

Si Ubound (Arrold) <> Ubound (Arrnew)

Renamefile = false

Fonction de sortie

Terminer si

Set fso = server.createObject (scripting.fileSystemObject)

pour i = 0 à Ubound (flèche)

OldName = server.mappath (Arrold (i))

newname = server.mappath (Arrnew (i))

Si fso.fileexist (oldname) et non fso.fileexists (newname) alors

fso.movefile oldname, newname

'RenameFile = True

Terminer si

Définir FSO = rien

Si err.number <> 0 alors

Err.clear ()

Renamefile = false

Autre

RenameFile = True

Terminer si

Fonction finale

'Nom de la fonction: CopyFiles (Tempsource, Tempend)

«Fichier: copier le fichier ou le répertoire

Paramètre: Tempsource 'Nom du fichier source Multi-Purpose |

Nom de fichier «Tempend» Multi-Purpose |

«Remarque: veuillez garder les deux mêmes paramètres ci-dessus, et les deux sont le chemin complet,

'La méthode server.mappath a été traitée

'Valeur de retour: succès vrai, échec faux

Fonction CopyFiles (Tempsource, Tempend)

Sur l'erreur reprendre ensuite

Dim Copyfso, Arrsource, Arrend

Copyfiles = false

Set copyfso = server.createObject (scripting.filesystemObject)

Si Tempsource = ou Tempend = alors

Errraise Copy Fichier ou répertoire, la condition est vide

Copyfiles = false

Fonction de sortie

Terminer si

Arrsource = Split (Tempsource, |)

Arrend = Split (Tentend, |)

Si Ubound (Arrsource) <> Ubound (arbit) alors

Copyfiles = false

Fonction de sortie

Terminer si

pour i = 0 à Ubound (Arrsource)

Srcname = Arrsource (i)

Tarname = Arrend (i)

Si copyfso.filexists (srcname) et non copyfso.fileexist (tarname)

Copyfso.copyfile srcname, tarname

Copyfiles = true

Terminer si

Si copyfso.foldrexist (srcname) et non copyfso.foldRexist (tarname)

Copyfso.copyfolder srcname, tarname

Copyfiles = true

Terminer si

Set copyfso = rien

Si err alors

'Err.clear ()

Copyfiles = false

Terminer si

Fonction finale