******************************
Plusieurs fois, nous pourrions avoir besoin d'une partie du code qui accèdera à tous les sous-repliants du serveur et aussi tous
fichiers dans le sous-dossier.
La ligne suivante de code ASP mappera à un dossier spécifié et recherche tous les sous-repliants
(Pas récursivement, le code peut être étendu) et lit tous les fichiers (essentiellement des fichiers texte) un par un.
Vous pouvez spécifier n'importe quel nom de dossier, dans les remarques données dans le code (à l'intérieur)
'Créer un objet Système de fichiers
set FileSystem = Server.CreateObject (Scripting.FileSystemObject)
DIM DBCONN
Folderpath = server.mappath (chemin de dossier principal)
Définir sfolder = filesystem.getfolder (FolderPath) .Sublolders
pour chaque folderite en sfolder
set file = folderitem.files
Pour chaque fichier de fichiers
fname = server.mappath (Chemin de dossier principal et FoldeRtem.name & / & FileItem.name
set file = fileSystem.OpenTExtFile (fname, 1, false)
tandis que file.atendofstream <> true
enregistrer = split (file.readline, ~)
se promener
File.close
FileSystem.DeleteFile (FNAME)
suivant
suivant
******************************