수다닷컴

아래 소스내용은 \aaa\aaa A\bbb폴더안의 화일들을\My Documents & \aaa\bbb\bbb폴더에 복사해 넣는 방식입니다.문제는 이전의 \My Documents & \aaa\bbb\bbb폴더안의 화일들이 삭제 됩니다.그냥 \My Documents & \aaa\bbb\bbb폴더안의 화일들 생각하지 말고..\aaa\aaa A\bbb폴더안의 화일들을 \My Documents & \aaa\bbb\bbb폴더에 복사(덮혀쓰기) 하라는 명령어면 됩니다.어디를 삭제해야 할까요?..------------------------------------------------------------------------------------------------------------------

Private Sub CandyButton8_Click() On Error GoTo ErrorTrap

Dim strSrcPath As String
Dim strTarPath As String

strSrcPath =
strTarPath = strSrcPath = App.Path & \aaa\aaa A\bbb strTarPath = Environ(USERPROFILE) & \My Documents & \aaa\bbb\bbb

If Len(Dir(strTarPath, vbDirectory)) = 0 Then
strTarPath = Environ(USERPROFILE) & \My Documents & \aaa\bbb\bbb
If Len(Dir(strTarPath, vbDirectory)) 0 Then
MkDir Environ(USERPROFILE) & \My Documents & \aaa\bbb\ & bbb
strTarPath = Environ(USERPROFILE) & \My Documents & \aaa\bbb\bbb
End If

End If
Call subCopyFiles(strSrcPath, strTarPath)

MsgBox 적용완료
Exit Sub
ErrorTrap:
MsgBox Err.Description, error
End Sub

신청하기