Implémentation du code à l'aide du programme de modification par lots ASP, lié au FSO
C'est une petite chose qui doit être fait en lots de modifications de code, et je le partagerai avec vous.
Les types de fichiers qui peuvent être traités actuellement: .asp .inc .htm .html Les types spécifiques peuvent être modifiés et ajoutés par vous-même.
Fonctions implémentées par le programme: Batch Modifiez les fichiers dans le répertoire source et enregistrez-les dans le répertoire de destination.
Quelques modifications peuvent réaliser beaucoup de choses!
Je ne dirai rien d'autre, le code est très clair
<%
'// + ----------------------------------------------------------------------- +
'// | Nom du programme: Modificateur par lots de code de pierre V1.01 |
'// | Tous droits réservés par les pierres des autres montagnes, la contrefaçon sera poursuivie! Veuillez indiquer le droit d'auteur lors de la réimpression :) |
'// | ------------------------------------------------------------------------- |
'// | Système: Win2000; Éditeur: EditPlus; Outil d'indentation: onglet; Longueur d'indentation: 8; Font: Songti (10pt); |
'// | ------------------------------------------------------------------------- |
'// | Créateur: WYC; Temps de création: 2004-03-08; |
'// | Écrivain: WYC; Écrivain: 2004-03-08; |
'// + ----------------------------------------------------------------------- +
Server.scripttimeout = 500 'temps de temps d'attente du script
'// + ----------------------------------------------------------------------- +
'// | Fonctions de modification par lots |
'// | ------------------------------------------------------------------------- |
'// | Attribut: PATH_FROM Directory de fichiers source PATH_TO Target File Working Directory |
'// | ------------------------------------------------------------------------- |
'// | Valeur de retour: aucun |
'// | ------------------------------------------------------------------------- |
'// | Flux du programme: ... |
'// | ------------------------------------------------------------------------- |
'// | Écrivain: WYC; Heure d'écriture: 2004-03-08; |
'// + ----------------------------------------------------------------------- +
Sub mid-file (path_from, path_to)
list_from = path_from 'stockage le répertoire de travail source actuel
list_to = path_to 'stockage le répertoire de travail cible actuel
Set fso = createObject (scripting.fileSystemObject)
Set Fold = fso.getfolder (list_from) 'Object du dossier
Définir le jeu d'enregistrements de fichiers FC = Fold.Files
Set mm = pli.Subfolders 'obtenez l'ensemble d'enregistrements du répertoire
Pour chaque F2 en mm
SET OBJFILE = Server.CreateObject (Scripting.FileSystemObject)
objfile.createfolder (path_to & / & f2.name) 'Créer un répertoire
Milieu Path_From & / & F2.Name, Path_To & / & F2.Name 'Appel récursif
Response.Write Path_To & / & F2.Name & Finid! <br>
Suivant
Pour chaque F1 en FC
file_from = list_from & / & f1.name 'Créer une adresse de fichier (source)
file_to = list_to & / & f1.name 'Créer une adresse de fichier (à)
FileExt = lCase (à droite (f1.name, 4)) 'Obtenez le type de fichier
Si fileExt = .asp ou fileExt = .inc ou fileExt = .htm ou fileExt = html alors 'le type spécifique peut être modifié et ajouté par vous-même