VB6.0获取exe文件地址

在VB6.0中，如果你想要获取当前运行的.exe文件的路径，你可以使用`InStr`, `PathSeparator`以及`Mid`函数组合。以下是一个简单的示例：

Dim filePath As String
filePath = ThisDocument.FullName ' 获取当前文档的完整路径，这通常是.exe文件的实际位置

If InStr(filePath, ".exe") > 0 Then ' 检查是否是以.exe结尾
    Dim lastSlashIndex As Long
    lastSlashIndex = InStrRev(filePath, "\") + 1 ' 查找最后一个反斜杠的位置
    Dim fileNameStartIndex As Long
    fileNameStartIndex = lastSlashIndex + 1 ' 加一得到.exe开始位置
    
    filePath = Mid(filePath, fileNameStartIndex) ' 提取.exe文件名
End If

MsgBox "当前.exe文件的地址是：" & filePath ' 显示结果

这段代码首先获取了当前VB6应用程序的完整路径，然后检查是否包含".exe"，如果包含就提取出.exe文件名。

相关问题

VB6.0 调用窗口选择文件并获取文件地址

在VB6.0中，你可以使用FileDialog控件来让用户从窗口选择文件，并获取所选文件的路径。以下是简单的步骤：

1. 首先，在Visual Basic环境中，打开一个新的标准模块或窗体，然后在工具箱中找到`Common Dialogs`类别，点击`OpenFileDialog`控件拖放到窗体上。

2. 双击`OpenFileDialog`控件以打开其属性窗口。在这里，你需要设置一些关键属性：
- `Title`：设置对话框标题，如“选择文件”。
- `Filter`：指定允许用户选择的文件类型，例如：“所有文件(*.*)|*.*”。

3. 设置好后，编写事件处理程序，通常是在`Open`事件下，添加以下代码：

Private Sub OpenFileDialog1_Open()
    If OpenFileDialog1.Show = True Then ' 如果用户选择了文件，则执行下面操作
        Dim filePath As String = OpenFileDialog1.FileName ' 获取用户选择的文件路径
        MsgBox "您选择的文件路径是：" & filePath ' 显示文件路径，这里可以根据需要做其他操作
    End If
End Sub

在这个例子中，当用户点击"打开"按钮后，会弹出一个文件选择窗口。如果用户选择了文件，`Show`函数返回`True`，程序会获取`FileName`属性得到文件路径，并显示在消息框中。