De ce ... (despre SHFILEOPSTRUCT)

#1
nexusm

Posted 20 May 2015 - 16:27

Senior Member

Grup: Senior Members
Posts: 2,793
Înscris: 07.07.2011

... nu pot intercepta parametrul fs.fAborted
codul este:
Dim fso As SHFILEOPSTRUCT
Back:
fso.hWnd = Me.hWnd
fso.pFrom = sDB
fso.pTo = caleRAP
fso.wFunc = FO_COPY
fso.fFlags = FOF_NOCONFIRMATION
fso.fAborted = False
SHFileOperation fso

iar in cazul in care userul alege sa abandoneze copierea fisierului respectiv eu trebuie sa interceptez asta si sa-i dau un mesaj ceva de genul:
Fara acest fisier nu poti face cutare chestie (cu solutii de tip vbYes/vbNo)
in cod ar fi asa:
(dupa linia) SHFileOperation fso
If fso.fAborted = True Then
ret = MsgBox ... bla, bla, bla REVENITI?
If ret = vbYes Then GoTo Back
End If

problema esta ca indiferent de valoarea lui .fAborted conditia If este sarita.
am testat si in Runtime si se comporta la fel.

Ce imi scapa ???

NB chiar daca a fost declarata un pic mai sus, am ales sa introduc si fso.fAborted = False, chit ca nu era necesar
(solutie exista, folosesc fs.FileExists (FileSystemObject) si merg mai departe)

Edited by nexusm, 20 May 2015 - 16:32.

Back to top

#2
dani.user

Posted 20 May 2015 - 16:37

Guru Member

Grup: Senior Members
Posts: 30,238
Înscris: 24.02.2007

VB6 sau .NET?

Back to top

#3
nexusm

Posted 20 May 2015 - 16:51

Senior Member

Grup: Senior Members
Posts: 2,793
Înscris: 07.07.2011

vb6

Back to top

#4
nexusm

Posted 27 May 2015 - 16:01

Senior Member

Grup: Senior Members
Posts: 2,793
Înscris: 07.07.2011

Solutia cauzei nu am reusit sa o depistez dar o solutie paleativa ar fi pasarea valorii fAborted unei alte variabile, ceva de genul:

(dupa linia) SHFileOperation fso
Dim s As Boolean
s= fso.fAborted
If s = True Then
'face ceva
End If

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

De ce ... (despre SHFILEOPSTRUCT)

#1 nexusm Posted 20 May 2015 - 16:27

#2 dani.user Posted 20 May 2015 - 16:37

#3 nexusm Posted 20 May 2015 - 16:51

#4 nexusm Posted 27 May 2015 - 16:01

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
nexusm

Posted 20 May 2015 - 16:27

#2
dani.user

Posted 20 May 2015 - 16:37

#3
nexusm

Posted 20 May 2015 - 16:51

#4
nexusm

Posted 27 May 2015 - 16:01