수다닷컴

오류에 대하여 질문하신다면, 어느 부분에서 어떤 내용의 오류가 나는지를 써주세요.

Private Sub openfile_Click()
With cdOpen
.CancelError = False
.DialogTitle = Select File Path...
.Filter = All Files(*.*)|*.*
.FileName =
.ShowOpen

If .FileName Then
txtFile1.Text = .FileName
file_n1 = .FileTitle
End If

End With
End Sub-----------------------------------------------이렇게 파일을불러와서 텍스트1에 파일명을 써넣는건데요 이렇게 오류가나는데 어떻게해야되나요 ? On Error Resume Next 를넣고 다시해보면 클릭을해도 아무증세가없습니다 ..ㅠㅠ

신청하기