＜%@LANGUAGE=VBSCRIPT%＞＜%Option Explicit%＞＜%'이하 프로그램 은 폴 더 의 파일 이름 을 대량으로 변경 하고 모든 파일 을 새로운 폴 더 로 이동 합 니 다."＜html＞"&VbCrLf&"＜head＞"&VbCrLfResponse.Write"＜tit＞ 대량 파일 개명＜/itle＞"&VbCrLfResponse.Write"＜/head＞"&VbCrLf&"＜몸＞"&VbCrLf"&VbCrLf'변 수 는 Dim gbolGoProcedurDim strFromDim'원본 폴 더 Dim strTargetDim'원본 폴 더 Dim strDim strDim strTarDim'대상 폴 더 Dim strOb체 Dim obj Root폴 더 Dim Ob체 Dim obj RootFolDim FileDim FileDim FileNamDistrDistrDim FileDistrDistrDistrDim'''&'&VbCrLf'&VbCrLf...FileNameDim strFileExt'파일 확장자 Dim strFileNameCountDim strNewFileNameDim strRealCount'처 리 된 파일 개수 gbolGoProcedure=False'시작 단 추 를 누 르 면 다음 처 리 를 합 니 다 If(Request.Form("GoButton")="start"then"지정 원본 폴 더,대상 폴 더 strFromDir="D:test\"strTargetDir="D:\\test 1\"'처리 파일 수 를 0 strRealCount=0 Set object=Server.CreateObject("Scripting.FileSystem Object")Set objectRootFolder=object.GetFolder(strTargetDir)'파일 이름 의 구체 적 인 설정 으로 설정 합 니 다.100001 로 설정 하면 파일 이름 이 100001'부터 점차 증가 할 것 임 을 나타 냅 니 다.필요 에 따라 설정 가능;strFileNameCount=100001 For each objectFile in objectRootFolder.Files'는 특정한 파일 을 처리 하지 않 고 필요 에 따라 설정 할 수 있 습 니 다. If objFile.Name = "Thumbs.db" then strFileNameCount = StrFileNameCount - 1 strFileNameCount = strFileNameCount + 1 NextSet objRootFolder = objFS.GetFolder(strFromDir)For each objFile in objRootFolder.Files strFileNameLen = Len (objFile.Name) If Mid (objFile.Name,(strFileNameLen - 3),1) = "." then strFileExt = right(objFile.Name, 4) Else strFileExt = right(objFile.Name,5)End If strPreveFileName=obj File.Name strNewFileName=strFileNameCount&strFileExt obj File.Move strTargetDir&strNewFileName Response.Write"원본 파일:"&strFromDir&strPreveFileName&"＞이동 및 이름 변경:"&strTargetDir&strNewFileName&"＜br＞"&vbCrLF strFileNameCount=strFileNameCount+1 strRealCount=strRealCount+1Next Response.Write"＜p＞＜b＞공동 처리:"&(strRealCount)&"개 파일＜/B＞"&vbCrLf Set obsRootFolder=Nothing Set obsFS=Nothing gbolGoProcedure=TrueEnd If gbolGoProcedure Then Response.Write("＜p＞＜b＞대량 파일 대량 이동 및 개명＜/b＞")&vbCrLfElse Response.Write("＜center＞br＜fo＜fo＜"""post"""action=""""FileNamConverter.asp"""ID=form1 name="""form1"""""form1"""＞")&vbCrLf Response.Write("＜input type=""SUBMIT"""""""""시작"""ID="""GoButton"""이름=""""GoButton"""""""""GoButton""""""＞")및 vbCrLf Response.Wr("＜/form＞")및 vbCrLf Response.Wr(")및 vbCrLf Response.Wre("""및 vbCrLf Response.Wre(")및 vbCrLf Response.Wre(""＜,＞") & VbCrLfEnd IfResponse.Write "＜/body＞" & VbCrLf & "＜/html＞"%＞
