Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

TVSat GO

Targuri de Craciun

Comutator radiator "Somogyi&#...
 Durere os sacru / coccis

Riscul de a sta in preajma unui o...

Boxe

Xiaomi Smart Speaker IR Control
 Probleme instalare Windows 11

Campina PH singurul oras din jude...

Gareth Emery - Welcome To Your Life

Vanzare teren extravilan-se const...
 Imparatul Sponsian (de pe moneda ...

Cum e relatia voastra cu batranii?

Ieri s-au implinit 30 de ani de l...

Papuc electric sau prindere direc...
 

De ce ... (despre SHFILEOPSTRUCT)

- - - - -
  • Please log in to reply
3 replies to this topic

#1
nexusm

nexusm

    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.


#2
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 29,260
  • Înscris: 24.02.2007
VB6 sau .NET?

#3
nexusm

nexusm

    Senior Member

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

#4
nexusm

nexusm

    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

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate