＜ ٪ language = vbscript ٪ ＞
＜ ٪ خيار صريح ٪ ＞
＜ ٪
"تقوم دفعة البرنامج التالية بإعادة تسمية أسماء الملفات في المجلد وتنقل جميع الملفات إلى مجلد جديد ؛
Response.write "＜ html ＞" & vbcrlf & "＜ head ＞" & vbcrlf
Response.write "＜ العنوان ＞ اسم ملف الدُفعات تغيير </title ＞" & vbcrlf
استجابة. "＜/head>" & vbcrlf & "＜ body>" & vbcrlf
وصف متغير
قاتمة gbolgoprocedure
قاتم سترفومديرس المجلد
قاتمة المجلد strtargetdir'target
قاتمة objfs
قاتمة objrootfolder
قاتمة objfile
قاتمة سترفيليناميلين
قاتمة strprevfilename
امتداد ملف Dim Strfilext
قاتمة strfilenameCount
قاتمة strnewfilename
Dim StrealCount 'عدد الملفات التي تمت معالجتها
gbolgoprocedure = خطأ
إذا تم النقر على زر البدء ، فقم بإجراء المعالجة التالية
if (request.form ("gobutton")) = "ابدأ" ثم
حدد مجلد المصدر ومجلد الوجهة
strfromdir = "D: اختبار/"
StrTargetDir = "D:/test1/"
قم بتعيين عدد ملفات المعالجة على 0
strrealCount = 0
تعيين OBJFS = server.createBject ("scripting.filesystemObject")
تعيين objrootfolder = objfs.getfolder (strtargetdir)
"الإعدادات المحددة لاسم الملف ، تم تعيينها على 100001 هنا ، مما يشير إلى أن اسم الملف سيكون من 100001
"البدء ، زيادة تدريجيا ، يمكن ضبطها حسب الحاجة ؛
StrfilenameCount = 100001
لكل objfile في objrootfolder.files
بالنسبة لملفات محددة ، لا تتم معالجتها ويمكن تعيينها حسب الحاجة ؛
إذا كان objfile.name = "thumbs.db" ثم strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
التالي
تعيين objrootfolder = objfs.getfolder (Strfromdir)
لكل objfile في objrootfolder.files
strfilenamelen = len (objfile.name)
إذا كان منتصف (objfile.name ، (strfilenamelen - 3) ، 1) = "." ثم
strfilext = right (objfile.name ، 4)
آخر
strfilext = right (objfile.name ، 5)
إنهاء إذا
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfilext
objfile.move strtargetdir & strnewfilename
Response.write "ملف المصدر:" & strfromdir & strprevfilename & "＞ نقله وتغييره إلى:
strfilenamecount = strfilenamecount + 1
strrealCount = strrealCount + 1
التالي
استجابة. write "＜ p ＞＜ b ＞ المعالجة الكلية:" & (strrealcount) و "files </b>" & vbcrlf
تعيين objrootfolder = لا شيء
تعيين OBJFS = لا شيء
gbolgoprocedure = صحيح
إنهاء إذا
إذا gbolgoprocedure ثم
Response.write ("＜ p ＞＜ b ＞ دفع الدُفعات الدُفعة وإعادة تسمية </b ＞") و vbcrlf
آخر
استجابة. write ("＜ center ＞＜br> ＜ method =" "post" "Action =" "FileNameConverter.asp" "id = form1 name =" "form1" ""> ") & vbcrlf
استجابة. write ("＜ إدخال type =" "إرسال" "value =" "بدء" "id =" "gobutton" "name =" "gobutton" ""> ")
Response.write ("＜/form>") & vbcrlf
استجابة. write ("＜ p ＞＜ b ＞ انقر فوق الزر لتحريك الدُفعات وأعيد تسمية الملف </b ＞＜/center ＞")
إنهاء إذا