Private Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32" Alias"SHCreateDirectoryExW" (ByVal hwnd As Long, ByVal pszPath As LongPtr,ByVal psa As Any) As Long
Private Declare PtrSafe Function PathIsRelative Lib "shlwapi.dll" Alias"PathIsRelativeW" (ByVal pszPath As LongPtr) As Long