Узнавать свой адресс иногда бывает про сто необходимо! Например мы должны открыть звуковой файл который лежит в одной папке с программой. Для этого мы будем пользоваться функцыей Ap.patch. Итак, приступим:
Dim Ap As String
Ap = App.Path
If Right(Ap, 1) <> "\" Then Ap = Ap + "\"
Все! Теперь где в том месте, где нам надо будет указать адресс к файлу, мы просто пишим:
(Ap + "Тут имя файла+расширение")
Например:
Open (Ap + "1.txt") For Input As #1
Do Until EOF(1)
Line Input #1, alltxt
Loop
Close #1
Text1.Text = alltxt
Как вы наверное уже дагодались 1.txt - это файл который лежит в одной папке с программой, а Text1.Text - это текстовое поле, в которое будет открыт этот файл! Все! Прога работает!