/
Smitis
/
PurePortable
Обзор
Документация
Войти
/
Smitis
/
PurePortable
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
PPDK/Lib/proc/CreatePath.pbi
19 строк
624 B
Smitis
v4.10.0.30
19 окт 2024, 19:00
19 окт 2024, 19:00
ef85b10
Код
Авторство
О чём код?
; https://learn.microsoft.com/en-us/windows/win32/api/shlobj_core/nf-shlobj_core-shcreatedirectoryexw ;DeclareImport(shell32,_SHCreateDirectoryExW@12,SHCreateDirectoryExW,SHCreateDirectoryEx_(hWnd,*pszPath,*psa)) ;SHCreateDirectoryEx_(0,@Path,#Null) ; может неправильно работать из dllmain Procedure CreatePath(Path.s) Path = RTrim(Path,"\")+"\" Protected p = FindString(Path,"\") While p CreateDirectory(Left(Path,p)) p = FindString(Path,"\",p+1) Wend EndProcedure ; IDE Options = PureBasic 6.04 LTS (Windows - x64) ; Folding = - ; EnableThread ; DisableDebugger ; EnableExeConstant