vb6 - 如何获取运行表格的驱动器号

Question

我需要获取我的表单正在运行的驱动器的盘符。我需要这个的原因是因为我将复制一个文本文件（从表单所在的可移动驱动器）到计算机。甚至可能吗？如果是的话，有人可以帮我写代码吗？

注意我使用的是 Visual Basic 6

score 1 · Accepted Answer

1

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

就这些。

于 2014-12-20T12:52:32.547 回答

score 0 · Accepted Answer

0

这应该会返回您正在运行 exe 的驱动器号。

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

于 2014-12-18T16:25:11.690 回答

score 0 · Accepted Answer

考虑到驱动器号可以有多个字母，我认为这是最好的方法。

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

3 回答 3