please, 'help me' and let me understand how to do converting this
https://docs.microsoft.com/en-us/window ... directorya
to Purebasic code.
Code: Select all
dir.s="C:\MyDir"
Debug RemoveDirectory_(@dir)Code: Select all
*Ascii = Ascii("c:\MyDir")
RemoveDirectoryA_(*Ascii)
FreeMemory(*Ascii)
Code: Select all
Procedure.l MyCreateDirectory()
Protected.l out
Protected.s mydir = GetUserDirectory(#PB_Directory_Desktop)+"test"
out=CreateDirectory_(mydir, #NUL)
If out=0
th_errcode=GetLastError_()
EndIf
ProcedureReturn out
EndProcedure
Procedure.l MyRemoveDirectory()
Protected.l out
Protected.s mydir = GetUserDirectory(#PB_Directory_Desktop)+"test"
out=RemoveDirectory_(mydir)
If out=0
th_errcode=GetLastError_()
EndIf
ProcedureReturn out
EndProcedure
MyCreateDirectory()
Delay (2000)
MyRemoveDirectory()I'm doing some practice with 'api'
andinfratec wrote: Sat Jul 02, 2022 7:45 pm The link points to RemoveDirectoryA()
'A' means an ASCII string is required.
Code: Select all
dir.s="X:\MyDir"
r1 = RemoveDirectory_(@dir)
Code: Select all
; r1 = RemoveDirectory_(@dir)
MOV rax,qword [v_dir]
MOV rcx,rax
CALL RemoveDirectoryW
MOV qword [v_r1],rax
Code: Select all
Dim a(2)
Debug a()
Debug @a()
Debug @a(0)
; But ...
Debug @a(1)
I know, that's why I wanted to tell the correct way.infratec wrote: Sat Jul 02, 2022 7:45 pm The link points to RemoveDirectoryA()
'A' means an ASCII string is required.
So ...But the 'A' version is not directly available in PB.Code: Select all
*Ascii = Ascii("c:\MyDir") RemoveDirectoryA_(*Ascii) FreeMemory(*Ascii)
You have to import it.
And why not DeleteDirectory()![]()