수다닷컴

아래 내용이 aaa\a 폴더안에 모든 화일을 복사후for문을 사용하여 화일 이름을 변경하는 내용입니다.파일을 복사후에 for문을 실행할 수 있어야 하는데.. 연결이 안되고 있습니다.파일만 복사하던가.. for문만 실행하면 아무 이상없습니다.문제점파일 복사후 for문 실행하는 소스 문의입니다.아래에서 어느 부분을 추가해야 하나요?.. Case 15
strSrcPath = App.Path & \aaa\a
strTarPath = App.Path & \aaa

If Len(Dir(strTarPath, vbDirectory)) = 0 Then
strTarPath = App.Path & \aaa
If Len(Dir(strTarPath, vbDirectory)) 0 Then
MkDir App.Path & \aaa\ & a
strTarPath = App.Path & \aaa\a
End If
End If
Call subCopyFiles(strSrcPath, strTarPath)

For i = 5001 To 5005
If Not Dir(App.Path & \aaa\aa_ & i - 4843 & .bin) = Then
Name App.Path & \aaa\aa_ & i - 4843 & .bin As App.Path & \aaa\aa_ & i & .bin
End If
Next i
For i = 5101 To 5200
If Not Dir(App.Path & \aaa\aa_ & i - 3856 & .bin) = Then
Name App.Path & \aaa\aa_ & i - 3856 & .bin As App.Path & \aaa\aa_ & i & .bin
End If
Next i

신청하기