Webサイトデザイナーの場合、ファイルの大きなバッチ、特に写真やテキストファイルをさらに頻繁に処理することは避けられません。ウェブサイト上の多数のファイルにより、同じタイプのファイルの命名は、多くの場合、ファイル名として特定の規則性を持つ増分番号を直接使用します。たとえば、一般的な画像ファイルの命名は、多くの場合、1001.jpgと1002.jpgを使用します。この利点は、ファイル名が複製されず、管理しやすいことです。ここでは、ASPを使用してバッチ変更を使用してすべてのファイルの名前を変更する簡単で簡単な方法を具体的に紹介します。もちろん、名前を変更した後のファイル名は、ウェブサイトデザイナーのニーズに応じて増加します。
ASPを使用して、上記の関数を実装します。ファイル操作を設計し、FilesystemObjectオブジェクトを使用するため、この関数の実装はファイル操作許可を備えたWebサイトで実行する必要があることに注意してください。一般的に、仮想的な注意は、セキュリティ要件を考慮すると、ファイルに許可が与えられない可能性があることです。これは、最初に注意を払う必要があるものです。次のプログラムでは、指定されたフォルダーStrfromDirですべてのファイルを操作します。このフォルダーのファイルである限り、ファイルタイプが何であれ、プログラムは名前の変更になります。もちろん、ファイルタイプは変更されません。名前の後のファイルは、元のフォルダーに保存されませんが、新しいフォルダーStrtargetDirに移動されます。コピーではなくここに移動しているため、操作後、元のフォルダー内のすべてのファイルが存在しないことに注意してください。このプログラムは、FilesystemObjectオブジェクトによって提供されるさまざまな属性と機能を適切に利用しており、実装はシンプルで明確であり、他の言語を使用する友人はそれを深く感じるかもしれません。次に、関数実装コードを見てみましょう。
<%@language = vbscript%>
<%オプション明示的な%>
<%
「次のプログラムバッチは、フォルダー内のファイル名を変更し、すべてのファイルを新しいフォルダーに移動します。
Response.write "<HTML>"&vbcrlf& "<ヘッド>"&vbcrlf
response.write "<タイトル>バッチファイル名の変更</title>"&vbcrlf
respons.write "</head>"&vbcrlf& "<body>"&vbcrlf
'変数説明
薄暗いgbolgoprocedure
dim strfromdir'sourceフォルダー
Dim StrtargetDir'targetフォルダー
Dim objfs
Dim Objrootfolder
dim objfile
薄暗いstrfilenamelen
dim strprevfilename
dim strfileext 'ファイル拡張子
Dim StrfileNamecount
薄暗いstrnewfilename
Dim StrrealCount '処理されたファイルの数
gbolgoprocedure = false
'開始ボタンがクリックされた場合、次の処理を実行します
if(request.form( "gobutton"))= "start" then
'ソースフォルダーと宛先フォルダーを指定します
strfromdir = "d:test/"
strtargetdir = "d:/test1/"
'処理ファイルの数を0に設定します
strrealcount = 0
objfs = server.createObject( "scripting.filesystemobject")を設定します
objrootfolder = objfs.getfolder(strtargetdir)をセット
'ファイル名の特定の設定は、ここで100001に設定されており、ファイル名が100001からであることを示しています
'開始、徐々に増加し、必要に応じて設定できます。
strfilenamecount = 100001
objrootfolder.filesの各objfileについて
「特定のファイルについては、処理されておらず、必要に応じて設定できます。
objfile.name = "thumbs.db"の場合、strfilenamecount = strfilenamecount -1
strfilenamecount = strfilenamecount + 1
次
objrootfolder = objfs.getfolder(strfromdir)をセット
objrootfolder.filesの各objfileについて
strfilenamelen = len(objfile.name)
mid(objfile.name、(strfilenamelen -3)、1)= "。"それから
strfileext = right(objfile.name、4)
それ以外
strfileext = right(objfile.name、5)
ifを終了します
strprevfilename = objfile.name
strnewfilename = strfilenamecount&strfileext
objfile.move strtargetdir&strnewfilename
Response.write "ソースファイル:"&strfromdir&strprevfilename& "は:"&strtargetdir&strnewfilename& "<br>"&vbcrlfに移動して変更します。
strfilenamecount = strfilenamecount + 1
strrealcount = strrealcount + 1
次
Response.Write "<P><B >TOTAL Processing:"&(strrealCount)& "files </b>"&vbcrlf
objrootfolder = Nothingを設定します
objfs = Nothingを設定します
gbolgoprocedure = true
ifを終了します
gbolgoprocedureの場合
Response.write( "<p><b>バッチファイルバッチの移動と名前変更</b>")&vbcrlf
それ以外
Response.Write( "<センター><br> form method =" "post" "action =" "filenameconverter.asp" "id = form1 name =" "form1" "" ">")&vbcrlf
Response.write( "<入力タイプ=" "" value = "" start "" id = "" gobutton "" name = "" gobutton "" ""> ")&vbcrlf
respons.write( "</form>")&vbcrlf
Response.Write( "<P><B buttonボタンをクリックしてバッチ移動してファイルの名前を変更します</b ></center>")&vbcrlf
ifを終了します
Response.Write "</body>"&vbcrlf& "</html>"
%>
上記は、すべてのファイルのバッチ名変更を実装するASPのすべてのコンテンツです。よりエキサイティングなコンテンツは、Miaoxin Technologyチャネルにあります。