1. 프로그램이 시작된 경로를 알아내기
– App.Path 함수를 사용한다.
2. App.Path 사용시 주의할 점
– 루트 디렉토리일 경우 “\”를 함께 반환한다.
– 루트 디렉토리가 아닐 경우, 끝에 “\”가 없다.
3. 더 좋은 App.Path (출처 : http://www.freevbcode.com/ShowCode.asp?ID=878)
항상 끝에 “\”가 붙게 한다.
|
1 2 3 4 5 6 |
Public Function AppPath() As String Dim NewPath As String NewPath = App.Path If Right(App.Path, 1) <> "\" Then NewPath = NewPath & "\" AppPath = NewPath End Function |
사용예
|
1 2 |
'Open "C:\IA Program\입력값\FormData_5장.txt" For Input As #1 Open AppPath & "입력값\FormData_5장.txt" For Input As #1 |
4. 프로그램 시작 경로에서 파일명 가져오기
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Function GetFileName(sFileName As String) As String Dim FullFilename As String ' '파일이름 If Right$(Trim$(App.Path), 1) = "\" Then FullFilename = App.Path + sFileName Else FullFilename = App.Path + "\" + sFileName End If ' GetFileName = FullFilename ' End Function |
사용예 : FormData_5장.txt를 프로그램시작경로에서 찾는다.
|
1 |
myFile = GetFileName("FormData_5장.txt") |
5. 전체파일명에서 경로만 뽑아내기
|
1 2 3 4 5 6 7 8 9 10 |
Function GetPath(strFullFilename As String) As String ' Dim strPath As String strPath = Mid(strFullFilename, 1, InStrRev(strFullFilename, "\", , vbTextCompare) - 1) If Len(strPath) = 0 Then strPath = App.Path End If GetPath = strPath ' End Function |
호환성 : Visual Basic 5, 6