De ce ... (despre SHFILEOPSTRUCT)
Last Updated: May 27 2015 16:01, Started by
nexusm
, May 20 2015 16:27
·
0
#1
Posted 20 May 2015 - 16:27
... 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. |
#4
Posted 27 May 2015 - 16:01
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 |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users