Как получить букву диска для работающей формы

Question

Мне нужно получить букву диска, с которого работает моя форма. Причина, по которой мне это нужно, заключается в том, что я буду копировать текстовый файл (со съемного диска, в котором будет форма) на компьютер. Это вообще возможно? Если да, может ли кто-нибудь помочь мне с кодом?

ПРИМЕЧАНИЕ Я использую Visual Basic 6

Answer 1

Dim disk_letter As String
disk_letter = Left(CurDir$(), 1)

Это все.

Answer 2

Это должно вернуть вам букву диска, с которого вы запускаете исполняемый файл.

Left $ (App.Path, InStr (App.Path, ":"))

Answer 3

Я думаю, что это лучший подход, учитывая, что буква диска может иметь более одной буквы.

      Dim driveLetter As String
driveLetter = Left$(App.path, InStr(App.path, ":") - 1)