XProfan

« this Posting watts as Solution marked. »

Dieter
Zornow

Hello Thomas,

others your Löschproc time so, not +1 separate +2

Dim file#,(Len(file$)+2)

with GEHTS then correct

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Hi.

If I mere to M$ [...]

can I the trouble "so" not understand:

 {$cleq}
cls
mkdir "tes-t"
assign #1,"tes-t/0-Test.dat"
rewrite #1
close #1
print unlink("tes-t")
waitInput
end

proc unlink(string fle)

    fle=fle+"\x00"
    mem shfinfo=30
    Long shfinfo#,0=hWnd,fo_delete,addr(fle),0,FOF_NOCONFIRMATION | FOF_ALLOWUNDO | FOF_NOERRORUI | FOF_SILENT
    long rtVal=SHFileOperation(shfinfo)
    Dispose shfinfo
    return rtVal

endProc

or.

'{$cleq}
CLS
MKDIR "tes-t"
ASSIGN #1,"tes-t/0-Test.dat"
REWRITE #1
CLOSE #1
PRINT UNLINK("tes-t")
WAITINPUT
end

proc UNLINK

    PARAMETERS FLE$
    FLE$=FLE$+"\x00"
    DECLARE SHFINFO#
    DIM SHFINFO#,30
    LONG SHFINFO#,0=%HWND,$0003,ADDR(FLE$),0,$0010 | $0040 | $0400 | $0004
    var RTVAL&=external("shell32","SHFileOperation",shfinfo#)
    DISPOSE SHFINFO#
    RETURN RTVAL&

endproc

or GEHTS you therefore Why it konkret in Your pkg not functions?

Vergiss neither the vlt. ever one Process The Files opens How z.B. Antivirusprogramme or the Explorer and then the Remove (naturally) not functions as long as The Files opened are.

Dieter
Zornow

Hello Thomas,

others your Löschproc time so, not +1 separate +2

Dim file#,(Len(file$)+2)

with GEHTS then correct

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Dieter
Zornow

yet ergänzend Why

pFrom

Pointer to a buffer that specifies one or more source file names. Multiple names must be zero-separated. The list of names must be double zero-terminated.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

thanks for speedy Help.
@Dieter, the war's. thereby is it me already often untergekommen, that a Dateioperation first to zusätzlicher DIM went, without to know Why.

@iF, could you [...]

Please nachbessern.

Gruß Thomas
Windows XP SP2, XProfan X2

@Thomas: Nachgebessert! declared expects hold lt. M$ two 0byte on the Stringende.

therefore write I supra FLE$=FLE$+"\x00"