VB6 현재 파일의 경로위치 알아내기
2013.01.16
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 '-- FindCheck..