VB6中，在执行一步操作时，如何将其可能出现的错误信息捕捉，并将该信息存储到一个变量中

Question

例如，根据文件名显示文件信息，但该文件名有可能出现错误，请问如何将该错误信息记录并将其存放到一个变量中dim str as string 
dim filepath as string '文件存放地址str = "文件名" + cstr(filelen(filepath)) + cstr(filedatetime(filepath))
'在该语句被执行时，有可能因为文件名出错，或找不到该文件而发生错误 ，请问如何捕捉该错误信息，并将该错误纪录到变量str中，
请高手指点目前只有这多分可用了，希望高手大大能够帮帮忙

Answer 1

Public Sub OutPutErrMsg(FunctionName As String, ModuleName As String)    Dim lngErrFileNo As Long
    lngErrFileNo = FreeFile
    Open App.Path & "\Errmsg.txt" For Append As lngErrFileNo
    Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & "," & FunctionName & "," & ModuleName
    Close #lngErrFileNoEnd Sub

Answer 2

Dim lngErrFileNo As Long
    lngErrFileNo = FreeFile
    Open App.Path & "\Errmsg.txt" For Append As lngErrFileNo
    Print #lngErrFileNo, "ErrMsg:" & Format$(Now, "YYYY-MM-DD HH:MM:SS") & "," & Err.Number & "," & Err.Description & "," & FunctionName & "," & ModuleName
    Close #lngErrFileNoEnd Sub
app.path 是指文件地址吧，后面的 & "\Errmsg.txt" 这些是什么
print 中使用的函数参数& FunctionName ,& ModuleName 分别是指什么