FSO est un contrôle pour les opérations de fichiers dans Microsoft ASP. Ainsi, l'éditeur du mauvais nouveau canal partagera avec vous une analyse détaillée du code FSO.
Fonctions qui modifient le contenu spécifique au fichier à l'aide de FSO
functionfsochange (nom de fichier, cible, chaîne)
Dimobjfso, objCountFile, filempdata
SetObjfso = server.createObject ("scripting.fileSystemObject")
SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
FilempData = objCountFile.readall
objCountFile.close
FilempData = remplacer (filempdata, cible, chaîne)
SetObjCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)
objCountFile.WriteFilempdata
objCountFile.close
SetObjCountFile = rien
SetObjfso = rien
Finition de fin
Fonctions qui utilisent FSO pour lire le contenu du fichier
functionfsofileread (nom de fichier)
Dimobjfso, objCountFile, filempdata
SetObjfso = server.createObject ("scripting.fileSystemObject")
SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
FsoFileRead = objCountFile.readall
objCountFile.close
SetObjCountFile = rien
SetObjfso = rien
Finition de fin
Fonctions qui utilisent FSO pour lire une ligne d'un fichier
functionfsolinedit (nom de fichier, linem)
iflinenum
dimfso, f, temparray, tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
ifnotf.atendofstreamhen
tempcnt = f.readall
f.close
setf = rien
template = Split (Tempcnt, Chr (13) & Chr (10))
iflinenum> ubund (temparray) + 1Then
sortie
autre
Fsolinedit = temparray (linenum-1)
endire
endire
finition de fin
Fonctions qui utilisent FSO pour écrire une certaine ligne d'un fichier
FONCTIONFSOLINEWRITE (nom de fichier, linénum, lineContent)
iflinenum
dimfso, f, temparray, tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
ifnotf.atendofstreamhen
tempcnt = f.readall
f.close
template = Split (Tempcnt, Chr (13) & Chr (10))
iflinenum> ubund (temparray) + 1Then
sortie
autre
modèle (linenum-1) = lineContent
endire
tempcnt = join (temparray, chr (13) & ch (10))
setf = fso.createtextfile (server.mappath (nom de fichier), true)
F.WriteTempcnt
endire
f.close
setf = rien
finition de fin
Fonctions pour ajouter de nouvelles lignes d'un fichier à l'aide de FSO
functionfsoappline (nom de fichier, lineContent)
dimfso, f
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
setf = fso.OpenTExtFile (server.mappath (nom de fichier), 8,1)
F.WriteChr (13) & Chr (10) & LineContent
f.close
setf = rien
finition de fin
Fonctions qui lisent la dernière ligne du fichier
functionfsolastline (nom de fichier)
dimfso, f, temparray, tempcnt
setfso = server.createObject ("scripting.filesystemObject")
ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
ifnotf.atendofstreamhen
tempcnt = f.readall
f.close
setf = rien
template = Split (Tempcnt, Chr (13) & Chr (10))
Fsolastline = temparray (ubund (temparray))
endire
finition de fin
FSO remplace le caractère du fichier spécifié
Code du programme:
'FSO remplace le caractère du fichier spécifié
Functionfsolineedit (nom de fichier, cible, chaîne)
Dimobjfso, objCountFile, filempdata
SetObjfso = server.createObject ("scripting.fileSystemObject")
SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
FilempData = objCountFile.readall
objCountFile.close
FilempData = remplacer (filempdata, cible, chaîne)
SetObjCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)
objCountFile.WriteFilempdata
objCountFile.close
SetObjCountFile = rien
SetObjfso = rien
Finition de fin
'Response.WriteFsolineEdit ("Test.txt", "World", "Tomorrow est une bonne journée à partir")
Supprimer les fichiers
Code du programme:
'Supprimer le fichier
FunctionDelfile (nom de fichier)
Iffilename "" alors
Setfso = server.createObject ("scripting.filesystemObject")
Iffso.fileexists (nom de fichier) puis
Fso.deletefilefilename
Endire
Setfso = rien
Endire
Finition de fin
Déterminez si le fichier existe
Code du programme:
'Déterminez simplement si le fichier existe
FunctionReportFileStatus (Filespec)
Dimfso, msg
Setfso = createObject ("scripting.fileSystemObject")
If (fso.fileexists (filespec)) alors
msg = filespec & "existe".
Autre
msg = filespec & "NotExist".
Endire
ReportFileStatus = msg
Finition de fin
Fonctions qui modifient le contenu spécifique au fichier à l'aide de FSO
Code du programme:
'Utilisez FSO pour modifier les fonctions de contenu spécifiques au fichier
Functionfsochange (nom de fichier, cible, chaîne)
Dimobjfso, objCountFile, filempdata
SetObjfso = server.createObject ("scripting.fileSystemObject")
SetObjCountFile = objfso.OpenTExtFile (server.mappath (nom de fichier), 1, true)
FilempData = objCountFile.readall
objCountFile.close
FilempData = remplacer (filempdata, cible, chaîne)
SetObjCountFile = objfso.CreateTextFile (server.mappath (nom de fichier), true)
objCountFile.WriteFilempdata
objCountFile.close
SetObjCountFile = rien
SetObjfso = rien
Finition de fin
Fonctions qui utilisent FSO pour écrire une certaine ligne d'un fichier
Code du programme:
'Utilisez FSO pour écrire une fonction qui a une certaine ligne de fichier
FONCTIONFSOLINEWRITE (nom de fichier, linénum, lineContent)
Iflinenum
Dimfso, f, temparray, tempcnt
Setfso = server.createObject ("scripting.filesystemObject")
Ifnotfso.fileexists (server.mappath (nom de fichier)) alorsxitfunction
Setf = fso.OpenTExtFile (server.mappath (nom de fichier), 1)
Ifnotf.atendofstreamhen
tempcnt = f.readall
f.close
Temparray = Split (Tempcnt, Chr (13) & Chr (10))
IflineNum> Ubound (temparray) + 1Then
Sortie
Autre
modèle (linenum-1) = lineContent
Endire
tempcnt = join (temparray, chr (13) & ch (10))
Setf = fso.createtextfile (server.mappath (nom de fichier), true)
F.WriteTempcnt
Endire
f.close
Setf = rien
Finition de fin
Le programme qui crée un répertoire. S'il y a plusieurs niveaux de répertoires, créez un niveau à la fois.
Code du programme:
«Le programme qui crée un répertoire. S'il y a plusieurs niveaux de répertoires, le crée un niveau à la fois.
FunctionCreatEdir (ByVallocalPath)
Onerrorresumenext
LocalPath = remplacer (localpath, "/", "/")
SetFileObject = Server.CreateObject ("Scripting.FileSystemObject")
patharr = fendre (localpath, "/")
path_level = ubound (patharr)
Fori = 0topath_level
Ifi = 0THENPATHTMP = patharr (0) & "/" elsepathtmp = pathtmp & patharr (i) & "/"
cpath = gauche (pathtmp, len (pathtmp) -1)
IfnotfileObject.folderexists (cpath) thenfileObject.createfoldercpath
Suivant
SetFileObject = rien
IFERR.NUMBER0TEN
CreateDir = false
Err.Clear
Autre
CreateDir = true
Endire
Finition de fin
Voici quelques-unes de ces fonctionnalités incommo mais très cool:
Caractéristiques FSO qui sont rarement comprises
GetSpecialFolderMethod renvoie le chemin d'accès d'un dossier Windows spécifique: répertoire d'installation Windows; Répertoire système Windows; Windows Temporary Directory FSO.getSpecialFolder ([0,1, OR2])
GetTempNameMemethod renvoie un fichier généré de manière aléatoire ou un nom de répertoire, qui est utilisé lorsque des données temporaires sont requises.
GetAbsolutepathNameMethod renvoie le chemin absolu vers le dossier (similaire à server.mappath).
Par exemple, fso.getAbsolutepathName ("région") renverra un résultat similaire à ce qui suit: "C: MyDocsmyfoldeRegion"
GetExtensionnamemethod renvoie l'extension de la dernière partie du chemin
(Par exemple: fso.getExtensionName ("c: docsest.txt") renvoie txt)
GetBasenameandAndParentFolderMethods renvoie le dossier parent de la dernière partie du chemin
(Par exemple: fso.getparentfolder ("c: docsmydocs") renverra 'docs')
DrivesProperty renvoie une collection de tous les disques disponibles localement pour construire des interfaces utilisateur de type navigateur de ressources.
Lorsque vous utilisez les fonctions ci-dessus, il est préférable de créer un code pour la gestion des erreurs. Parce que si les paramètres requis n'existent pas, des informations gênantes seront générées.
Ce qui précède est une analyse détaillée du code FSO. Je crois que vous avez tout appris. Pour plus de contenu lié, veuillez continuer à prêter attention au canal technologique Wuxin.