Private Sub CommandButton1_Click() // 버튼을 클릭하면 파일검색을 위한 검색창이 뜸
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
End Sub
'programming' 카테고리의 다른 글
| [스크랩] 서버이전시 mysql버전에 따른 패스워드오류 (0) | 2009.06.30 |
|---|---|
| [이미지에 글자넣기] ImageString() (0) | 2009.06.23 |
| Excel VBA (0) | 2009.05.19 |
| mysql에러 : 145 (0) | 2009.05.16 |
| [지식인펌]php에서 include된 파일의 문자인코딩문제(한글깨짐) (0) | 2009.05.08 |