Dans ASP, FSO signifie l'objet système de fichiers, qui est un objet système de fichiers. Le système de fichiers informatiques que nous allons manipuler, ici, il fait référence à la localisation sur le serveur Web. Alors, assurez-vous d'avoir les bonnes autorisations à ce sujet. Idéalement, vous pouvez configurer un serveur Web sur votre propre machine afin que vous puissiez facilement effectuer des tests. Si vous exécutez sur la plate-forme Windows, essayez le serveur Web de Microsoft IIS.
Objets du modèle FSO
Objet Drive: Drive des objets pour accéder à des disques ou à des lecteurs de réseau
FileSystemObject Object: File System ObjectS pour accéder au système de fichiers de l'ordinateur
Objet de dossier: Objet de dossier pour accéder à toutes les propriétés d'un dossier
Objet TextStream: Objet de flux de texte pour accéder au contenu du fichier
Vous pouvez utiliser les objets ci-dessus pour faire quoi que ce soit sur votre ordinateur, y compris les activités de sabotage ;-( Donc, soyez prudent avec FSO. Dans un environnement Web, le stockage des informations est très important, comme les informations utilisateur, les fichiers journaux, etc. FSO fournit un moyen puissant et simple d'enregistrer efficacement les données.
1. Fonctionnement du fichier, obtenez la taille du fichier
Fonction getFileSize (nom de fichier) '// Fonction: obtenez la taille du fichier' // Paramètre du modèle: nom de fichier '// valeur de retour: taille de fichier avec succès, échec de -1' // dim fif ReportFileStatus (nom de fichier) = 1 thenset f = fso.getFile (nom de fichier) getfileSize = f.sizeelsegetFileSize = -1end ifiend function function
2. Utilisez FSO pour supprimer le fichier spécifié
Fonction Deleteadile (filespec) '// Fonction: fichier delete' // Paramètre du modèle: nom de fichier '// valeur de retour: le succès est 1, la défaillance est -1' // si reportFileStatus (filespec) = 1 thenfso.DeleteFile (filespec) Deleteadile = 1ELSELETEAFILE = -1END FONCTION FONCTION FONCTIONNE
3.FSO Affiche tous les fichiers dans le répertoire spécifié
Fonction showFileList (Folderspec) '// Fonction: Lorsque le répertoire existe, tous les fichiers de ce répertoire sont affichés. '// Paramètres formels: Nom du répertoire' // Valeur de retour: avec succès est une liste de fichiers, n'ayant pas été -1 '// dim F, F1, FC, SIF ReportFolderstatus (Folderspec) = 1 Thenset F = fso.getfolder (Folderspec) set fc = f.filesfor chaque F1 dans fcs = s & f1.Names = s & "|" SELSESHOWFILELIST = -1END FONCTION INFEND
4. Utilisez FSO pour copier le fichier spécifié
Fonction CopyaFile (SourceFile, DestinationFile) '// Fonction: le fichier ne peut être copié que lorsque le fichier source existe, le fichier de destination n'a aucun effet.' // Paramètre du modèle: fichier source, fichier de destination '// Valeur de retour: le succès est 1, l'échec est -1' // dim myfileif reportfileSatus (sourcefile) = 1 thensetfile) = 1ELSECOPYAFILE = -1END FONCTION INFEND
5. Le fichier ne peut être déplacé que lorsque le fichier de destination n'existe pas.
'Response.Write MoveAdile ("F: /123/4561.exe", "F: /123/4562.txt") Fonction MoveAdile (SourceFile, DestinationFile)' // Paramètre du modèle: fichier source, fichier de destination '// la valeur de retour: le succès est 1, la défaillance est -1' // if ReportFileSatus (SourceFile) = 1 ANDREPORTFILSATUS (DestinatFileFile) = -1 Thenfso.movefile sourcefile, destinationfileorpathmoveadile = 1ELSEMOVEADILE = -1end ifend function