수다닷컴

비주얼베이직 입문이후 알면 알수록 어려워지고 소스가 다양하다는걸 알지만요구하는 소스가 한정되지 않은게 저를 복잡하게 하네요.가까운곳에 아는 분이라도 있으면 부탁을 드려보려지만,또다시 염치없이 이렇게 부탁 드려봅니다.어제 마인드님께서 도움을 주셔서 적용이 잘 됩니다.첨부화일에 소스 내용 첨부되어 있습니다.질문1. 아래 소스중에 case 8아래 맨처음 번호만 적용되더라구요. 맨 처음 번호가 없다면 다음으로 넘어가서 검사하는 방법 문의 드립니다.2. 아래 소스내용을 간소화 방법을 알고 싶습니다.--------------------------------------------------- Case 8
For i = 90 To 93
If Not Dir(App.Path & \aaa\aaa_ & i + 68 & .bin) = Then
Name App.Path & \aaa\aaa_ & i + 68 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
For i = 110 To 113
If Not Dir(App.Path & \aaa\aaa_ & i + 80 & .bin) = Then
Name App.Path & \aaa\aaa_ & i + 80 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
For i = 118 To 121
If Not Dir(App.Path & \aaa\aaa_ & i + 40 & .bin) = Then
Name App.Path & \aaa\aaa_ & i + 40 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
For i = 122 To 125
If Not Dir(App.Path & \aaa\aaa_ & i + 36 & .bin) = Then
Name App.Path & \aaa\aaa_ & i + 36 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
For i = 146 To 149
If Not Dir(App.Path & \aaa\aaa_ & i + 12 & .bin) = Then
Name App.Path & \aaa\aaa_ & i + 12 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
For i = 162 To 165
If Not Dir(App.Path & \aaa\aaa_ & i - 4 & .bin) = Then
Name App.Path & \aaa\aaa_ & i - 4 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
p; Next i
For i = 174 To 177
If Not Dir(App.Path & \aaa\aaa_ & i - 16 & .bin) = Then
Name App.Path & \aaa\aaa_ & i - 16 & .bin As App.Path & \aaa\aaa_ & i & .bin
End If
Next i
---------------------------------------------------

신청하기