XProfan

- Page 2 -

it custom a code, no Image

06/22/08 ▲

Dieter
Zornow

i think these File can't copies go. I had it with different known Commandern attempts, none could tappt im dunkeln copy and Unlocker gelang it neither tappt im dunkeln freizugeben. i think it ought to The Files particular copy and if one Error appears The next copy.

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

J.
Strahl

[

it custom a code, no Image

GENAU

The File can and must not copies go. though fractures the copy on the place ex and copies whom remainder in the Ordner not any more moreover. there in the running the Time there increasingly Files stored go can I neither simply Unterordner copy.
therefore would I gladly the function say Hello, no Error Message if You what not copy can, but copy moreover

and nu white I do not How I the FOF_Flag% the einverleiben can if it at all goes. white the of/ one ?

Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD

...I Have the now time so made - Perhaps helps you the beginning - i'm no API-Progi - but so becomes The File übersprungen at copy:
Compile Mark Separation

DECLARE datei$,weg$,attr%
weg$=C:\Dokumente und Einstellungen\Horst Horn\Lokale Einstellungen\Anwendungsdaten\Microsoft\Windows
datei$=\UsrClass.dat
CLS
CHDIR weg$
attr%=@GetFAttr(weg$+datei$)
print attr%
wie sich die 128 zusammensetzen, ist mir schleierhaft - Roland weiss bestimmt mehr ;)

IF attr%=128

    Messagebox(datei$+ kann nicht kopiert werden,Error,64)

ELSE

    COPY weg$+datei$ > C:+datei$

ENDIF

waitinput
end

I wrote still supra already
iF

of code supra:
Compile Mark Separation

Word opstruct#,16=FOF_Flag% | ~FOF_NOERRORUI

simply Word opstruct#,16=FOF_Flag% | ~FOF_NOERRORUI here further append | blub | brab |solali

FOF_Flag% can You unangefasst let.

J.
Strahl

Definition in the Header missing

if I the so eingebe:

Word opstruct#,16=FOF_Flag% | ~FOF_NOERRORUI

äh, How supra described blutiger Beginner. I hope I nerve you not To heavy.

I suspect time IF that you things vorraussetzt The I ( yet ) not know muhaha -

ought to ~FOF_NOERRORUI not a Zahlenwert having ?

Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD

for something like I had Konstantinopel program: [...]

The Helferrubrik [...]

birgt some value!

Übrigens, XPSE has these Konstanten intus - there need one no such Header More and no ~-characters.

J.
Strahl

OK OK - then be I Yes still not so clumsy.

whom worth whom I need is 1024 the additional to the Values noconfirm% and norecycle% zuaddiert go.

speak :

Word opstruct#,16=FOF_Flag% + 1024

correctly. ?

the ham wa already tested. unfortunately, i'm sorry to say the then the Kopiervorgang aborted becomes. and the should must go on.

yet further ideas ?

Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD

rather not add separate with binärem or link, means word ops....,16=fof_flag% | 1024 | blub | japp

J.
Strahl

first ma one fat thanks all which here The fingers sore written having ( IF ) - be now To folgendem Ergebniß come.

Word opstruct#,16=FOF_Flag% | 1024

supplant and unfortunately only one Programmabbruch. gives it Maybe yet others Opportunities ? without The @SHFileOperation(1) !SHELL32,SHFileOperationA function To benefit ?

Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD

Dieter
Zornow

Versuchs time so, the code is tested. it'll everything copies what goes without Programmabbruch
Compile Mark Separation

Def GetFullPathName(4) ! Kernel32,GetFullPathNameA
Def @SHFileOperation(1) !SHELL32,SHFileOperationA

Proc GetFullName

    Parameters name$
    Declare buf1#,buf2#
    Dim buf1#,560 +1
    Dim buf2#,560 +1
    GetFullPathName(Addr(name$),511,buf1#,buf2#)
    Name$=String$(buf1#,0)
    Dispose buf1#
    Dispose buf2#
    Return name$

EndProc

Proc Fileaction

    Parameters Action$,File$,File2$,noconfirm%,norecycle%
    Parameter 1: Auszuführende Aktion=COPY, DELETE, RENAME, MOVE
    Parameter 2: Quelldatei
    Parameter 3: Zielldatei
    Parameter 4: 0 = User erst fragen, 1= ohne Nachfrage löschen
    Parameter 5: 0 = In Papierkorb verschieben, 1= endgültig löschen
    Declare FOF_Flag%,Action&,DO%,Fehler&
    Declare opstruct#,file#,file2#
    LET DO%=0

    IF @upper$(Action$)=RENAME

        Let Action&=4

    elseIF @upper$(Action$)=COPY

        Let Action&=2

    elseIF @upper$(Action$)=MOVE

        Let Action&=1

    elseIF @upper$(Action$)=DELETE

        Let Action&=3

    else

        @messagebox(Diese Funktion ist nicht bekannt!,Aktion wird nicht ausgeführt!,64)
        LEt DO%=1

    endif

    IF DO%=0

        Case noconfirm% : noconfirm%=16
        CaseNot norecycle% : norecycle%=64
        Let FOF_Flag% = (noconfirm% | norecycle% | 1024)
        Dim opstruct#,30
        Dim file#,(Len(file$) + 2)
        Dim file2#,(Len(file2$) + 2)
        String file#,0= (file$ + Chr$(0))
        String file2#,0=(file2$ + Chr$(0))
        Long opstruct#,0=%hwnd Handle des aufrufenden Fensters
        Long opstruct#,4=Action&
        Long opstruct#,8=file# pfrom : hier der zu löschende Ordner
        Long opstruct#,12=file2# pto (muß 0 oder eine Bereichvar. mit Zieldateinamen																							 z.B. bei Umbenennung sein
        Word opstruct#,16=FOF_Flag%
        Long opstruct#,18=0	Hier steht nach dem Aufruf 1, wenn User abgebrochen hat
        Long opstruct#,22=0 Unbedingt immer auf Null setzen!
        Long opstruct#,26=0 Zeiger(Bereich) auf Überschrift des Fortschrittsdialogs
        LET FEHLER&=@ShFileOperation(opstruct#)

        IF long(opstruct#,18) = 1

            Print long(opstruct#,18)

        ELSEIF (Fehler& <> 0)

            Print Fehler

        EndIf

        Dispose file#
        Dispose file2#
        Dispose opstruct#

    endif

EndProc

REM Beispiel
cls
Declare name$
chdir c:Dokumente und Einstellungen\%userprofile%Lokale EinstellungenAnwendungsdatenMicrosoftWindows
clearlist
addfiles *.*

whileloop 0, %getcount

    name$ = Getfullname(ListBoxItem$(&loop))
    Fileaction COPY,name$+chr$(0),C:TEMP,0,0

endwhile

waitinput
end

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