폴더를 순환하며 파일을 루트로 옮기기
폴더를 선택하면 폴더 안의 하위 폴더도 모두 순환하며 최초 선택한 폴더로 파일을 모두 옮긴 후 폴더는 삭제하는 코드 파일명이 중복될 경우 난수를 생성해준다. 뤼튼 만세 ㅋㅋㅋ Sub MoveFilesInSelectedFolder() Dim sourceFolder As String Dim destFolder As String Dim fso As Object Dim sourceFolderObj As Object Dim destFolderObj As Object Dim subFolder As Object Dim file As Object Dim fileName As String, newFileName As String Dim fileExists As Boolean Dim rndNumber As Integer ..