중복되지 않고 jpg 파일 만 폴더와 하위 폴더에서 다른 폴더로 이동

Question

아래의 스크립트를 사용하여 모든 특정 파일을 대상 폴더로 이동합니다. 중복되지 않고 대상 폴더에 파일을 복사하고 싶습니다.

VBS를 10 분마다 실행하도록 예약 했으므로 이미 폴더에있는 동일한 파일을 다시 복사해서는 안됩니다.

Set fso = CreateObject("Scripting.FileSystemObject") 

testfolder = "D:\env" 
'fso.CreateFolder(testfolder) 

MoveFiles fso.GetFolder("D:\Movie Keys\License\2013_Apr_19") 

Sub MoveFiles(fldr) 
    For Each f In fldr.Files 
     basename = fso.GetBaseName(f) 
     extension = fso.GetExtensionName(f) 

     If LCase(extension) = "env" Then 
      dest = fso.BuildPath(testfolder, f.Name) 
      count = 0 
      Do While fso.FileExists(dest) 
       count = count + 1 
       dest = fso.BuildPath(testfolder, basename & "_" & count & "." _ 
         & extension) 
      Loop 
      f.Move dest 
     End If 
    Next 

    For Each sf In fldr.SubFolders 
     MoveFiles sf 
    Next 
End Sub 

Answer 1

여기서 문제는 모든 하위 파일의 소스 파일을 1 개의 대상 폴더에 복사하려는 것입니다. 이 시점에서 파일은 동일한 파일 이름을 가질 확률이 있으며 복사하는 동안 파일을 덮어 쓸 수 있습니다. 그렇지 않으면 파일이 건너 뛸 수 있습니다.

는 다음과 같은 코드 문제는, 당신은 어떤 소스 파일에 해당하는 파일 모르는 것입니다

 count = 0 
     Do While fso.FileExists(dest) 
      count = count + 1 
      dest = fso.BuildPath(testfolder, basename & "_" & count & "." & extension) 
     Loop 

이것을 달성하기 위해 노력하고 있습니다.

전체 경로로 파일 이름을 바꾸는 것이 좋습니다. 그래서, 소스 폴더의 모습을 가정 해 봅시다 :

는 FolderExample 및 sub01 모두에서 image01.jpg라는 파일이 있습니다.

여기서는 밑줄을 사용하여 각 폴더를 구분했습니다 (현실감이있을 수도 있고 그렇지 않을 수도 있음). 그러나이 새로운 파일 이름을 작성하면 같은 이름의 다른 파일을 덮어 쓸 수 없다는 것을 의미합니다! 파일을 다시 사용해야 할 경우

이제 문제는 파일 이름이 변경됩니다. 여기서 밑줄을 사용하는 것은 파일을 복사하고 밑줄로 분리 한 다음 전체 경로를 만들고 파일 이름을 가져 와서 파일을 복사하도록 다른 응용 프로그램을 프로그래밍 할 수 있다는 것입니다.

이것은 단순히 robocopy을 사용하여 중복을 만들지 않고 이미 대상에 존재하는 파일을 복사하지 않고 폴더를 동기화 할 경우

If LCase(extension) = "env" Then 
     dest = fso.BuildPath(testfolder, f.Name) 
     if not (fso.FileExists(dest)) then 
      f.Move dest 
     end if 
    End If 

Answer 2

와

If LCase(extension) = "env" Then 
     dest = fso.BuildPath(testfolder, f.Name) 
     count = 0 
     Do While fso.FileExists(dest) 
      count = count + 1 
      dest = fso.BuildPath(testfolder, basename & "_" & count & "." _ 
        & extension) 
     Loop 
     f.Move dest 
    End If 

를 대체 할 수있는, 의미

또는 batch 스크립트

@echo off 

set dst=D:\env 
set src=D:\Movie Keys\License\2013_Apr_19 

robocopy "%src%" "%dst%" *.env 

이

---

편집 : 대상 폴더에 소스 트리를 탈수 할 때문에이 robocopy 귀하의 경우에 작동하지 않습니다.기존 코드는 당신이 원하는에 가까운,하지만 당신은 기존 파일을 덮어도 "버전"사본을 만들지 않으하지 않기 때문에이 변경해야이에

count = 0 
Do While fso.FileExists(dest) 
    count = count + 1 
    dest = fso.BuildPath(testfolder, basename & "_" & count & "." _ 
      & extension) 
Loop 
f.Move dest 

을 :

Set testfolder = CreateObject("Scripting.Dictionary") 
testfolder.CompareMode = vbTextCompare 'case-insensitive 
testfolder.Add "env", "D:\env" 
testfolder.Add "key", "D:\key" 

:

If Not fso.FileExists(dest) Then f.Move dest 

---

확장에 따라 다양한 대상 폴더를 사용하는 경우에는 대상 경로를 저장하는 dictonary을 사용할 수 있습니다

변경과 같은 코드 :

If testfolder.Exists(extension) Then 
    dest = fso.BuildPath(testfolder(extension), f.Name) 
    If Not fso.FileExists(dest) Then f.Move dest 
End If