Option Explicit Private Sub Form_Load() Dim PathName As String PathName = FindCheckFile("FileName.exe") MsgBox PathName End Sub Private Function FindCheckFile(ByVal FileName As String) As String Dim PathName As String '-- 현재경로의 사용자에게입력받은 파일이 있을경우. If Dir$(App.Path & "\" & FileName, vbNormal) <> "" Then '-- PathName 변수에 현재경로와 사용자에게입력받은 파일의 이름을 담아두고, PathName = App.Path & "\" & FileName '-- FindCheckFile 함수에 PathName 변수의 내용을담아둔다. FindCheckFile = PathName End If Exit Function End Function
위의 소스는 실행한 파일의 절대경로를 나타내주는 소스로써,
그 프로그램이 현재 어디에 위치하고 있는지에 따라, Msgbox 로 출력시켜줍니다.
정말 좋은 소스이랍니다@_@ 데헷.
'VB6.0' 카테고리의 다른 글
의뢰) @코어커뮤니티 접속관련 프로그램 (0) | 2013.06.04 |
---|---|
HYANGSU PREJECT (0) | 2013.05.18 |
CC486++ 서비스종료 (0) | 2013.01.15 |
CC486++ 2일 개발일지 (0) | 2013.01.12 |
CC3 기반의 CC486++ 개발일지 1일 (0) | 2013.01.12 |