Quelles sont les fonctions d’opération de fichiers couramment utilisées par les objets FileSystem ?
1. racine
Format de fonction racine()
La description de la fonction renvoie une variable de chaîne de chemin
Code d'application 'exemple de chaîne = c:/intels/jingcaichunfeng/'
Racine de fonction publique()
racine = Request.ServerVariables (Appl_Physical_Path)
Fonction de fin
2. URL
URL du format de fonction()
La description de la fonction renvoie une variable de chaîne URL
Code d'application 'exemple de chaîne = http://www.intels.net/filesys.asp'
URL de fonction publique()
url = http://&Request.ServerVariables (Nom_Serveur)
&Request.ServerVariables(Script_Name)
Fonction de fin
3. mkdir
Format de fonction mkdir(DIrName)
Fonction Description Créer un répertoire et renvoyer des informations
Code d'applicationFonction publique mkdir(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FolderExists( xVar ) Alors
msg =Désolé, le répertoire existe déjà !
Autre
Sys.CreateFolder(xVar)
msg =Félicitations, le répertoire a été créé avec succès !
Fin si
Définir Sys=Rien
mkdir = msg
Fonction de fin
4.rmdir
Format de fonction rmdir(DirName)
Fonction DescriptionSupprimer un répertoire et renvoyer des informations
Code d'applicationFonction publique rmdir(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FolderExists( xVar ) Alors
Sys.DeleteFolder(xVar)
msg =Félicitations, le répertoire a été supprimé avec succès !
Autre
msg =Désolé, le répertoire n'a pas encore été créé !
Fin si
Définir Sys=Rien
rmdir = msg
Fonction de fin
5. rép.is
Format de la fonction isdir(DirName)
Description de la fonction Vérifie si un répertoire existe et renvoie des informations
Code d'applicationFonction publique isdir(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FolderExists( xVar ) Alors
msg = Vrai
Autre
msg = Faux
Fin si
Définir Sys=Rien
isdir = msg
Fonction de fin
6.cpdir
Format de fonction cpdir(DirName, Destination, OverWrite)
Description de la fonction : Copier des dossiers et renvoyer des informations
Code d'applicationFonction publique cpdir(xVar, yVar, zVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FolderExists( xVar ) Alors
Sys.CopyFolder xVar, racine&yVar, zVar
msg =Félicitations, la copie du répertoire a réussi !
Autre
msg =Désolé, le répertoire que vous cherchiez n'a pas été trouvé !
Fin si
Définir Sys=Rien
cpdir=msg
Fonction de fin
7. mvdir
Format de fonction mvdir(DirName, Destination)
Fonction Description Déplacer un dossier et renvoyer des informations
Code d'applicationFonction publique mvdir(xVar, yVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FolderExists( xVar ) Alors
Sys.MoveFolder xVar, racine&yVar
msg =Félicitations, le répertoire a été déplacé !
Autre
msg =Désolé, le répertoire que vous cherchiez n'a pas été trouvé !
Fin si
Définir Sys=Rien
mvdir = msg
Fonction de fin
8.isfile
Format de fonction isfile(FileName)
Description de la fonction : Vérifier si le fichier existe et renvoyer des informations
Code d'applicationPublic Function isfile(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
msg = Vrai
Autre
msg = Faux
Fin si
Définir Sys=Rien
fichier is = msg
Fonction de fin
9. wfile
Format de fonction wfile(FileName, OverWrite, String)
La description de la fonction écrit une chaîne dans un fichier et renvoie des informations
Code d'applicationFonction publique wfile(xVar, yVar, zVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si yVar Alors
Définir Txt = Sys.OpenTextFile (xVar, 2)
Txt.Write(zVar)
Txt.Fermer
msg =Félicitations, le fichier a été créé et enregistré avec succès !
Autre
Si Sys.FileExists( xVar ) Alors
msg =Désolé, le fichier existe déjà !
Fin si
Définir Sys=Rien
wfile=msg
Fonction de fin
10. fichier r
Format de fonction rfile(FileName)
La description de la fonction lit un fichier et renvoie des informations
Code d'applicationFonction publique rfile(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
Définir Txt = Sys.OpenTextFile (xVar, 1)
msg = Txt.ReadAll
Txt.Fermer
Autre
msg =Désolé, le fichier n'existe pas !
Fin si
Définir Sys=Rien
fichierr=msg
Fonction de fin
11. un fichier
Format de fonction afile(FileName, String)
Fonction Description Ajoute une chaîne à un fichier et renvoie les informations
Code d'applicationPublic Function afile(xVar, zVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
Définir Txt = Sys.OpenTextFile (xVar, 8)
Txt.Write(zVar)
Txt.Fermer
msg =Félicitations, le fichier a été ajouté et enregistré avec succès !
Autre
msg =Désolé, le fichier n'existe pas !
Fin si
Définir Sys=Rien
un fichier = msg
Fonction de fin
12.cpfichier
Format de fonction cpfile(FileName, Destination, OverWrite)
Description de la fonction : Copier un fichier et renvoyer des informations
Code d'applicationFonction publique cpfile(xVar, yVar, zVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
Sys.CopyFile xVar, racine&yVar, zVar
msg =Félicitations, le fichier a été copié avec succès !
Autre
msg =Désolé, la copie du fichier a échoué !
Fin si
Définir Sys=Rien
cpfile = msg
Fonction de fin
13. fichier mv
Format de fonction mvfile(FileName, Destination)
Fonction Description Déplacer un fichier et renvoyer des informations
Code d'applicationFonction publique mvfile(xVar, yVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
Sys.MoveFile xVar, racine&yVar
msg =Félicitations, le fichier a été déplacé avec succès !
Autre
msg =Désolé, le déplacement du fichier a échoué !
Fin si
Définir Sys=Rien
mvfile = msg
Fonction de fin
14.rmfichier
Format de fonction rmfile(FileName)
Description de la fonctionSupprimer un fichier et renvoyer des informations
Code d'applicationFonction publique rmfile(xVar)
Définir Sys = Server.CreateObject (Scripting.FileSystemObject)
Si Sys.FileExists( xVar ) Alors
Sys.DeleteFile(xVar)
msg =Félicitations, le fichier a été supprimé avec succès !
Autre
msg =Désolé, la suppression du fichier a échoué !
Fin si
Définir Sys=Rien
rmfile = msg
Fonction de fin