Sub Class_Globals
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
Public Sub GetSafeDirDefaultExternal(Folder As String) As String
Log(File.DirDocuments & Folder)
If Folder <> "" Then
' If File.Exists(File.DirDocuments & Folder, "") = False Then
' File.MakeDir(File.DirDocuments, Folder)
' End If
Return File.DirDocuments & Folder
Else
Return File.DirDocuments
End If
End Sub