기준과 내용이 일치하는 모든 폴더 삭제

Question

MS Access VBA를 사용하여 폴더를 삭제하는 방법을 알고 싶습니다.

구조는 다음과 같습니다

 MainFolder 
      - Africa 2014.04 
      - Europe 2014.05 
      - USA 2014.06 

내가 MainFolder에있는 모든 폴더를 검색 2014.04 들어있는 폴더를 찾아 모든 파일을 삭제해야합니다.

UPDATE 25 월 2014 년 :

정말 정말 분명하지 않다 모르는 그러나 오늘 날까지 묶었 으면에 대한 어쨌든 감사합니다. 그리고 제가 대답을 가지고하는 것은 내가 필요 정확히이다. (난 더 이상 게시하지 옆에 시간을 다할 것입니다

업데이트 26 월 2014 년 :. 모든

난`미안 한 번 더 오해,하지만 내가 편집 제안을 볼 수있는 사이트에 무언가를 쓸 때마다 항상 내 문법을 고치는 데 어려움을 겪지 않을 것입니다.

여기 내가 성취하고자하는 바가 있습니다.

 Function DeleteSubfoldersIn(ByVal sDir) 

     Dim inFS As New FileSystemObject 
     Dim inDir 
     Dim inSub 
     Dim strDateNow As String 
     Dim strASub As String 
     Dim strDiffDate As String 

     strDateNow = Format(Date - 90, "yyyy.mm") 
     Set inDir = inFS.GetFolder(sDir) 
     For Each inSub In inDir.SubFolders 
     DeleteSubfoldersIn inSub.Path 
     strASub = Right(inSub.Path, 7) 
     If strASub = strDateNow Then 
     If Dir(inSub.Path & "\*.*") <> "" Then 
     Kill inSub.Path & "\*.*" 
     End If 
     RmDir inSub.Path 
     End If 
     Next inSub 
     End Function 

타 너.

Answer 1

Dir을 사용하여 폴더를 검색하십시오.

Kill을 사용하면 폴더의 모든 파일을 삭제할 수 있습니다. 하위 폴더가있는 경우 재귀가 필요할 수 있습니다.

RmDir을 사용하여 폴더를 삭제하십시오. 코드의

기본 구조 :

strFolderName = Dir("C:\MainFolder\*2014.04*", vbDirectory) 

Do While strFolderName <> "" 
    Do While... 'loop for deleting files 
     Kill... 
     ... 
    Loop 
    RmDir strFolderName 
    strFolderName = Dir 
Loop