Newsgroup: it.comp.lang.visual-basic
Titolo: API, cestino e 2 casi

Dunque, ho la solita listbox con i files di una cartella. Attraverso le API,
alla pressione di un tasto, mando al cestino il dato della listbox
evidenziato. Come faccio a 'sto punto, quando appare la domanda "datoX,
inviare a Cestino?" a generare i casi:
1) si risponde "si" ed allora alla listbox viene sottratto il dato (cioe il
file inviato a cestino)
2) si risponde "no" ed allora non succede nulla
???
Grazie 1000
        Andrea

"Andrea"  ha scritto nel

______
      If MsgBox("Lo killiamo 'sto file, ché non mi piace ?", vbInformation + _
                  vbDefaultButton1 + vbYesNo, "Deciditi, una buona volta !") = _
                  vbYes Then
                  MsgBox "OK Capo, ci penso io a farlo fuori"
            ' e lo butti nel cestino
      Else
            MsgBox "Vabbe' per stavolta lo lasciamo campare..."
            ' non fai niente.
      End If
______
Spero fosse quello che intendevi.
Bye, G.
--
The C Programming Language: a language which combines
the flexibility and power of assembly with the elegance and
simplicity of assembly.
Real E-address: 
gaet...@hotmail.com

Innanzitutto grazie della risposta. Perň io vorrei soltanto inserire degli
eventi nei due casi distinti (cestina sě, cestina no), nel momento in cui
viene generato il messaggio di default che appare quando solitamente si
cestina un file.
Ho usato questo codice:
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Public Const FOF_ALLOWUNDO As Long = &H40
Public Const FOF_CONFIRMMOUSE As Long = &H2
Public Const FOF_FILESONLY As Long = &H80
Public Const FOF_MULTIDESTFILES As Long = &H1
Public Const FOF_NOCONFIRMATION As Long = &H10
Public Const FOF_NOCONFIRMMKDIR As Long = &H200
Public Const FOF_RENAMEONCOLLISION As Long = &H8
Public Const FOF_SILENT As Long = &H4
Public Const FOF_SIMPLEPROGRESS As Long = &H100
Public Const FOF_WANTMAPPINGHANDLE As Long = &H20
Public Const FO_COPY As Long = &H2
Public Const FO_DELETE As Long = &H3
Public Const FO_MOVE As Long = &H1
Public Const FO_RENAME As Long = &H4
Public Declare Function SHFileOperation Lib "Shell32.dll" Alias
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Sub InviaCestino(Nomefile As String)
Dim OperazioneSuFile As SHFILEOPSTRUCT
Dim lReturn As Long
With OperazioneSuFile
.wFunc = FO_DELETE
.pFrom = Nomefile
.fFlags = FOF_ALLOWUNDO
End With
lReturn = SHFileOperation(OperazioneSuFile)
End Sub
Senza inserire ulteriori MsgBox(es), appare "Spostare 'file...' nel
Cestino?", come succede solitamente. Ecco, io vorrei aggiornare una listbox
nel caso in cui si risponda si e non fare niente quando si risponde no...Ma
non so proprio come fare!
Grazie in anticipo
        Andrea

Ciao,
aggiungi:
If OperazioneSuFile.fAnyOperationsAborted Then
    MsgBox "non aggiorno la lista"
    '//e qui non faccio nulla
Else
    MsgBox "aggiorno la lista"
    '//qui invece le operazioni di aggiornamento
End If
fai attenzione comunque che se il percorso file non e' valido si comporta
ugualmente in modalita' aggiornamento, quindi e' forse meglio testare
l'esistenza del file con dir() prima di invocare la chiamata.
beppe
-----------------------------------------------------------
Visita il sito del WWF AltoFerrarese
http://www.comune.cento.fe.it/wwfaf
-----------------------------------------------------------