< % @language = vbscript % >
<%옵션 명시 적%>
<%
'다음 프로그램 배치는 폴더의 파일 이름을 이름 바꾸고 모든 파일을 새 폴더로 이동합니다.
response.write ""html > "& vbcrlf &"< head > "& vbcrlf
response.write ""제목 > 배치 파일 이름 변경 </title > "& vbcrlf
응답. ""/head> "& vbcrlf &"< body> "& vbcrlf
'변수 설명
희미한 gbolgoprocedure
Dim Strfromdir'Source 폴더
DIM StrtArgetDir'tArget 폴더
희미한 objfs
희미한 objrootfolder
희미한 objfile
희미한 strfilenamelen
Dim StrPrevFilename
Dim Strfileext '파일 확장
희미한 strfilenamecount
Dim StrnewFilename
Dim StrRealCount의 파일 수는 처리되었습니다
gbolgoprocedure = false
'시작 버튼을 클릭하면 다음 처리를 수행하십시오.
if (request.form ( "gobutton")) = "시작"그러면
'소스 폴더와 대상 폴더를 지정하십시오
strfromdir = "d : test/"
strtargetdir = "d :/test1/"
'처리 파일 수를 0으로 설정하십시오
strrealcount = 0
set objfs = server.createobject ( "scripting.filesystemobject")
set objrootfolder = objfs.getfolder (strtargetdir)
'파일 이름의 특정 설정, 여기에서 100001로 설정되어 파일 이름이 100001임을 나타냅니다.
'시작, 점차적으로 점진적으로, 필요에 따라 설정할 수 있습니다.
strfilenamecount = 100001
objrootfolder.files의 각 objfile에 대해
'특정 파일의 경우 처리되지 않으며 필요에 따라 설정할 수 있습니다.
if objfile.name = "whumbs.db"인 경우 strfilenamecount = strfilenamecount -1
strfilenamecount = strfilenamecount + 1
다음
set 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 & "> > >로 이동하고 변경하십시오.
strfilenamecount = strfilenamecount + 1
strrealCount = strRealCount + 1
다음
Response.write ""p >< b > 총 처리 : "& (strealcount) &"files </b> "& vbcrlf
objrootfolder = 아무것도 설정하지 않습니다
OBJFS = 아무것도 설정하지 않습니다
gbolgoprocedure = true
끝 If
GBOLGOPEDURE이면
response.write ( "ite p >< b > 배치 파일 배치 이동 및 이름 바꾸기 </b >") & vbcrlf
또 다른
response.write ( "ite center ><br> form method =" "post" "action =" "filenameconverter.asp" "id = form1 name =" "form1" ""> ") & vbcrlf
response.write ( "ite 입력 유형 =" "제출" "value =" "start" "id =" "gobutton" "name =" "gobutton" ""> ") & vbcrlf
response.write ( "ite/form>") & vbcrlf
response.write ( "ite p >< b > 버튼을 클릭하여 배치 이동을 클릭하고 파일의 이름을 바꾸고 </b ></center >") & vbcrlf
끝 If