如何获取运行表格的驱动器号答案

【问题标题】：How do i get drive letter for a running form如何获取运行表格的驱动器号
【发布时间】：2021-09-25 02:07:03
【问题描述】：

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

注意我使用的是 Visual Basic 6

【问题讨论】：

【解决方案1】：

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

仅此而已。

【讨论】：

【解决方案2】：

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

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

【讨论】：

这与七年前的@lardymonkey's answer 几乎相同，只是去掉了外斜线。我不认为这是绝对必要的吗？但是，如果是这样，那么我会呼吁改变。否则，在未来，对现有答案进行投票会更有意义——如果您认为可以改进，可以选择发表评论。（您目前没有足够的声誉来做这两个事情；但与此同时，您应该警惕留下大量重复的答案。）

【解决方案3】：

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

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

【讨论】：