Pour les concepteurs de sites Web, il est inévitable de traiter fréquemment de grands lots de fichiers, en particulier les images et certains fichiers texte, qui sont encore plus fréquents. En raison du grand nombre de fichiers sur le site Web, la dénomination des fichiers du même type utilise souvent directement des nombres incrémentiels avec une certaine régularité que les noms de fichiers. Par exemple, la dénomination des fichiers d'image communs utilise souvent 1001.jpg et 1002.jpg. Cet avantage est que les noms de fichiers ne seront pas dupliqués et sont faciles à gérer. Ici, nous introduisons spécifiquement un moyen simple et facile d'utiliser ASP pour simplement utiliser les renoms de lots pour renommer tous les fichiers. Bien sûr, les noms de fichiers après renommée sont incrémentés en fonction des besoins du concepteur de site Web.
Nous utilisons ASP pour implémenter les fonctions ci-dessus. Il convient de noter que, en raison de la conception des opérations de fichiers et de l'utilisation d'objets FileSystemObject, la mise en œuvre de cette fonction doit être effectuée sur un site Web avec des autorisations d'opération de fichier. Généralement, l'attention virtuelle est que compte tenu des exigences de sécurité, le fichier peut ne pas recevoir d'autorisations, ce à quoi nous devons faire attention en premier; Dans le programme suivant, nous exploiterons tous les fichiers dans le dossier spécifié STRFROMDIR. Tant qu'il s'agit d'un fichier dans ce dossier, quel que soit le type de fichier, le programme le renommera. Bien sûr, le type de fichier ne sera pas modifié. Les fichiers après le nom ne seront pas enregistrés dans le dossier d'origine, mais seront déplacés vers le nouveau dossier StrtargetDir. Notez que nous déménageons ici, pas de copie, donc après l'opération, tous les fichiers du dossier d'origine n'existeront pas; Le programme fait bon usage des différents attributs et fonctionnalités fournis par l'objet FileSystemObject, et l'implémentation est simple et claire, et les amis qui utilisent d'autres langues peuvent le ressentir profondément; Maintenant, regardons le code d'implémentation de la fonction:
＜% @Language = VBScript% ＞
＜% Option explicite% ＞
＜%
«Le programme de programme suivant renomment les noms de fichiers dans le dossier et déplace tous les fichiers vers un nouveau dossier;
Response.Write "＜ Html ＞" & vbcrlf & "＜ Head ＞" & vbcrlf
Response.Write "＜ Title ＞ Changement de nom de fichier batch </ title ＞" & vbcrlf
Response.Write "＜ / Head>" & vbcrlf & "＜ Body>" & vbcrlf
'Description variable
Sombre gbolgoprocedure
Dossier strfromdir'source
Dossier strtargetdir'target
Obscurcissement
Objrootfolder faible
Objfile sombre
Strfilenamelen sombre
Dim strprevfilename
Extension de fichier Dim StrfileExt
Dim strfilenameCount
Dim SttrnewFilename
Nombre de fichiers DIM STRRREALCOUNT traités
gbolgoprocedure = false
'Si le bouton Démarrer est cliqué, effectuez le traitement suivant
If (request.form ("gobutton")) = "start" alors
'Spécifiez le dossier source et le dossier de destination
strFromdir = "d: test /"
strtargetdir = "d: / test1 /"
«Définissez le nombre de fichiers de traitement sur 0
strrealcount = 0
SET OBJFS = Server.CreateObject ("Scripting.FileSystemObject")
Définir ObjrootFolder = objfs.getfolder (strtargetdir)
'Les paramètres spécifiques du nom du fichier, définis à 100001 ici, indiquant que le nom du fichier sera de 100001
«Démarrer, l'incrément progressivement, peut être réglé selon les besoins;
strFilenameCount = 100001
Pour chaque objfile dans objrootfolder.files
«Pour les fichiers spécifiques, ils ne sont pas traités et peuvent être définis au besoin;
Si objfile.name = "thumbs.db" alors strFilenameCount = strFilenameCount - 1
strFilenameCount = strFilenameCount + 1
Suivant
Définir ObjrootFolder = objfs.getfolder (strFromdir)
Pour chaque objfile dans objrootfolder.files
strfilenamelen = len (objfile.name)
Si mid (objfile.name, (strfilenamelen - 3), 1) = "." alors
strfileExt = droite (objfile.name, 4)
Autre
strfileExt = droite (objfile.name, 5)
Terminer si
strprevfilename = objfile.name
strNewFileName = strFilenameCount & strfileExt
objfile.move strtargetdir & strnewfilename
Response.Write "Fichier source:" & strfromdir & strprevfilename & "＞ Déplacez-vous et changez-le en:" & strtargetdir & strnewfilename & "＜br>" & vbcrlf
strFilenameCount = strFilenameCount + 1
strrealcount = strrealcount + 1
Suivant
Response.Write "＜ P ＞＜ B ＞ Traitement total:" & (strrealcount) & "Files </b>" & vbcrlf
Définir objrootfolder = rien
Définir objfs = rien
gbolgoprocedure = true
Terminer si
Si gbolgoprocedure alors
Response.Write ("＜ P ＞＜ B ＞ Batch Fichier Batch Move and Rename </ B ＞") & vbcrlf
Autre
Response.Write ("＜ Centre ＞＜br> ＜ Form Method =" "Post" "Action =" "filenameConverter.asp" "id = form1 name =" "Form1" ""> ") & vbcrlf
Response.Write ("＜ Input type =" "Soumider" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
Réponse.write ("＜ / form>") & vbcrlf
Response.Write ("＜ P ＞＜ B ＞ Cliquez sur le bouton pour se déplacer par lots et renommer le fichier </ b ＞＜ / centre ＞") & vbcrlf
Terminer si
Réponse.write "＜ / body>" & vbcrlf & "＜ / html>"
% ＞
Ce qui précède est tout le contenu d'ASP implémentant simplement les renommés de noms de lot de tous les fichiers. Un contenu plus excitant se trouve dans la chaîne technologique Miaoxin.