사이트 디자이너 에 게 있어 대량의 파일 을 자주 처리 하 는 것 은 불가피 하 다.특히 사진 과 일부 텍스트 파일 은 더욱 자주 처리한다.한편,사이트 의 대량의 파일 관계 로 인해 같은 유형의 파일 의 이름 에 대해 일정한 규칙 을 가 진 증가 숫자 를 직접 사용 하여 파일 이름 으로 한다.예 를 들 어 우리 가 흔히 볼 수 있 는 이미지 파일 의 이름 은 항상 1001.jpg,1002.jpg 등 방식 을 사용한다.이런 장점 은 파일 이름 이 중복 되 지 않 고 관리 하기 쉽다 는 것 이다.여기 서 우 리 는 임 의 폴 더 에 있 는 모든 파일 에 대해 대량으로 이름 을 바 꾸 는 간단 하고 쉬 운 방법 을 소개 합 니 다.물론 이름 을 바 꾼 후의 파일 이름 은 사이트 디자이너 의 수요 에 따라 숫자 에 따라 점점 증가 합 니 다.저 희 는 ASP 를 사용 하여 상기 기능 을 실현 합 니 다.주의해 야 할 것 은 파일 작업 에 설계 되 었 고 FileSystemObject 대상 을 사용 하기 때문에 이 기능 의 실현 은 파일 조작 권한 을 가 진 사이트 에서 이 루어 져 야 합 니 다.일반적인 가상 주 의 는 안전 요 구 를 고려 하여 파일 에 권한 을 부여 하지 않 을 수 있 습 니 다.이것 은 우리 가 먼저 주의해 야 할 것 입 니 다.또한,아래 프로그램 에서 저 희 는 지정 한 폴 더 strFromDir 의 모든 파일 을 조작 할 것 입 니 다.이 폴 더 의 파일 이 라면 파일 형식 이 어떻든 지 간 에 프로그램 은 파일 이름 을 바 꾸 는 작업 을 할 것 입 니 다.물론 파일 형식 은 바 뀌 지 않 습 니 다.이름 을 바 꾼 후의 파일 은 원래 폴 더 에 저장 되 지 않 습 니 다.새 폴 더 strTargetDir 로 이동 합 니 다.복사 가 아 닌 이동 입 니 다.따라서 작업 을 진행 하면 원래 폴 더 에 있 는 모든 파일 이 존재 하지 않 습 니 다.프로그램 은 FileSystemObject 대상 이 제공 하 는 각종 속성 과 특징 을 잘 이용 하여 실현 할 때 간단명료 하고 다른 언어 로 프로 그래 밍 한 친구 들 이 깊이 느 낄 수 있 습 니 다.현재,우 리 는 기능 실현 코드 를 살 펴 보 겠 습 니 다.＜%@LANGUAGE=VBSCRIPT%＞＜%Option Explicit%＞＜%이하 프로그램 은 폴 더 의 파일 이름 을 대량으로 바 꾸 고 모든 파일 을 새로운 폴 더 로 이동 합 니 다.Response.Write"＜html＞"&VbCrLf&"＜head＞"&VbCrLf Response.Write"＜title＞대량 파일 개명＜/title＞"&VbCrLf Response.Write"＜/head＞"&VbCrLf&"＜body＞"&VbCrLf'변 수 는 Dim gbolGoProcedure Dim strFromDim strFromDim strTargetDir'원본 폴 더 Dim strTargetDim obbFS Dim object RootFolder Dim str 파일 이름 Dim strPreveFileName Dim strFileExt'파일 확장자 Dim strFileNameCount Dim strNewFileName Dim 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 Next Set 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+1 Next Response.Write"＜p＞＜b＞공동 처리:"&(strRealCount)&"개 파일＜/B＞"&vbCrLf Set obsRootFolder=Nothing Set obsFS=Nothing gbolGoProcedure=True End If gbolGoProcedure Then Response.Write("＜p＞＜b＞대량 파일 대량 이동 및 개명＜/b＞")&vbCrf Else Response.Write("＜cente＞"post""""post"""action=""FileNamConverter.asp"""ID=form1 name=""""""ID=form1 name="""form1"""＞")및 vbCrLf Response.Write("＜input type="""SUBMIT""""value="""시작"""ID="""""""GoButton""이름=""""""GoButton"""""""GoButton"""＞")및 vbCrLf Response.Wr("＜/form＞")및 vbCrLf Response"및 vbCrLf Response.Wr(")및 vbCrLf Response.Wr(""및 vbCrLf ResResponse."""및 vbCr이름＜/b＞＜/center＞") & VbCrLf End If Response.Write "＜/body＞" & VbCrLf & "＜/html＞" %＞
