Vb6 获取相对路径的完整路径

我在Globals.bas中有以下代码：

Public Const strErrorLog = "log.log"

    Public Sub WriteLog(ByVal strMess As String, ByVal ErrLog As String)
    Dim intLogFile As Integer

    On Error GoTo GenErr
        'Print the path of the log file
        If ErrLog <> "" Then
            ' save errors to a text file
            intLogFile = FreeFile
            Open ErrLog For Append As #intLogFile
            Print #intLogFile, Str(Now) & " " & strMess
            Close intLogFile
        End If

        Exit Sub
    GenErr:
        Select Case ShowError(Err, Error$ & " in WriteLog", strErrorLog)
            Case vbAbort: Exit Sub: Case vbIgnore: Resume Next: Case vbRetry: Resume
        End Select

    End Sub

---

当应用程序似乎没有写入到正确的位置时，如何获取日志文件的完整路径。

该相对路径与什么有关？如果ErrLog=，则未执行任何操作？@GSerg，则与当前live server上的可执行路径有关。但是，在我将其移动到的服务器上，情况似乎并非如此。您必须向我们提供足够的信息来重现问题，否则我们将无能为力。请参阅此指南：相对路径是相对于当前目录的。它不一定是包含exe的文件夹。见和。