Create Log Path VB6 Code

Code:

Function GetLogPath() As String
 If DirExists(Environ("appdata") & "\Microsoft\Windows\Logs") = False Then
    MkDir Environ("appdata") & "\Microsoft\Windows\Logs"
 End If
    GetLogPath = Environ("appdata") & "\Microsoft\Windows\Logs"
End Function

Private Function DirExists(DirectoryName As String) As Boolean
    DirExists = (Dir$(DirectoryName, vbDirectory) <> "")
End Function