asp+fso implémente des fonctions de détection de l'existence, de la création et de la suppression de fichiers ou de dossiers'//////////////////////////////// / /////////////////Opération OFS//////////////////////////// //// /////
'Vérifiez si le dossier existe
Fonction Sortie de dossier (Dossier)
Dossier = Serveur. Mappath (Dossier)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
SI FSO.FolderExists(Dossier) Alors
Sortie de dossier = vrai
Autre
Sortie de dossier = faux
Fin SI
Fonction de fin
'Vérifier si le fichier existe
Fonction FileExits(FileName)
NomFichier=Serveur.Mappath(NomFichier)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
SI FSO.FileExists(FileName) Alors
FichierExits=true
Autre
FileExits = faux
Fin SI
Fonction de fin
'Créer un dossier
Fonction CreateFolder(Dossier)
en cas d'erreur, reprendre ensuite
Dossier = Serveur. Mappath (Dossier)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
FSO.CreateFolder(Dossier)
si erreur>0 alors
err.clear
CreateFolder=Faux
autre
CreateFolder=Vrai
finir si
Fin de fonction
'Créer un fichier
Fonction CreateFile (FileName, Content)
en cas d'erreur, reprendre ensuite
NomFichier=Serveur.Mappath(NomFichier)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
set fd=FSO.createtextfile(FileName,true)
Contenu fd.writeline
si erreur>0 alors
err.clear
CreateFile=Faux
autre
CreateFile=Vrai
finir si
Fin de fonction
'Supprimer les fichiers
fonction SupprimerFichier(NomFichier)
en cas d'erreur, reprendre ensuite
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
si FSO.FileExists(FileName) alors
FSO.DeleteFile NomFichier, vrai
finir si
si erreur>0 alors
err.clear
SupprimerFile=Faux
autre
SupprimerFile=Vrai
finir si
fonction de fin
'Supprimer le dossier
fonction SupprimerDossier(Dossier)
en cas d'erreur, reprendre ensuite
Dossier=server.MapPath(Dossier)
Définir FSO = Server.CreateObject (Scripting.FileSystemObject)
si FSO.FolderExists (Dossier) alors
Dossier FSO.Deletefolder, vrai
finir si
si erreur>0 alors
err.clear
Supprimer le dossier = Faux
autre
Supprimer le dossier = Vrai
finir si
fonction de fin