Recycle bin

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

Recycle bin

Berichtdoor anthonio » zo jul 22, 2007 2:16 am

Kort en krachtig: een bestand naar de recycle bin sturen (Beter dan de KILL statement)

Code: Selecteer alles
'maak een test.txt file in C:\ eerst
FO.DELETE = hexdec("&H3")
FOF.ALLOWUNDO = hexdec("&H40")

struct SHFILEOPSTRUCT,hwnd As uLong,_
    wFunc As Long, pFrom$ As ptr,_
    pTo$ As ptr, fFlags As long,_
    fAnyOperationsAborted As Long, hNameMappings As Long,_
    lpszProgressTitle As Long


SHFILEOPSTRUCT.pFrom$.struct="C:\test.txt" 'file voor recycle bin
SHFILEOPSTRUCT.pTo$.struct=""
SHFILEOPSTRUCT.wFunc.struct=FO.DELETE
SHFILEOPSTRUCT.fFlags.struct=FOF.ALLOWUNDO

calldll #shell32,"SHFileOperationA",SHFILEOPSTRUCT as struct,ret as long

print ret '0 is geslaagd, 1026 bestand bestaat niet
wait


anthonio
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor anthonio » zo jul 22, 2007 1:06 pm

uitbreiding op de originele, in sommige gevallen wil je bestanden naar de prullenbak sturen zonder dat de user daarvoor op Ja hoeft te klikken.

Code: Selecteer alles
'maak een test.txt file in C:\ eerst
FO.DELETE = hexdec("&H3")
FOF.NOCONFIRMATION = hexdec("&H50")

struct SHFILEOPSTRUCT,hwnd As uLong,_
    wFunc As Long, pFrom$ As ptr,_
    pTo$ As ptr, fFlags As long,_
    fAnyOperationsAborted As Long, hNameMappings As Long,_
    lpszProgressTitle As Long


SHFILEOPSTRUCT.pFrom$.struct="C:\test.txt" 'file voor recycle bin
SHFILEOPSTRUCT.pTo$.struct=""
SHFILEOPSTRUCT.wFunc.struct=FO.DELETE
SHFILEOPSTRUCT.fFlags.struct=FOF.NOCONFIRMATION


calldll #shell32,"SHFileOperationA",SHFILEOPSTRUCT as struct,ret as long

print ret '0 is geslaagd, 1026 bestand bestaat niet
wait
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Berichtdoor Gordon » zo jul 22, 2007 8:47 pm

Really nice!

Ik heb een poosje terug zo iets willen doen.
Veel ellende gehad met het opzoeken van
deze speciale mappen.

Nogmaals. Handig!
Ik ga mijn codebank programma nu echt bijwerken.

Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Berichtdoor anthonio » zo jul 22, 2007 10:21 pm

No problem, u vraagt wij draaien :D
Is een tricky one deze inderdaad.
Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm


Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron