Ho Creato una procedura usando il vba per trasferire le immagini inserite dal mio foglio di lavoro
all'interno della mia Cartella di lavoro chiamata ( Oggetti_Immagini_Salvate )
e fin qui tutto ok.
Ahora la mia richiesta e questa:
Io ho creato questa funzione che richiamo con un oggetto ( OptionButton ) inserito sempre sul foglio di lavoro che e questa :
- Codice: Seleziona tutto
Private Sub OptionButton1_Click()
On Error GoTo finish
IntDomanda = InputBox("Vuoi Eliminare la Cartella immagini...! " & Chr(13) & " Scrivi : Si o No ! ", IntDomanda)
If IntDomanda = "Si" Or IntDomanda = "si" Then
'Kill ThisWorkbook.Path & "\Oggetti_Immagini_Salvate"
strpath = ThisWorkbook.Path & "\Oggetti_Immagini_Salvate\"
Kill (strpath & "*.*")
RmDir (strpath)
Else
Exit Sub
finish:
MsgBox "Cartella Eliminata", vbInformation, " Attenzione "
End If
End Sub
E anche in questo caso funziona a meravigli.
Ora la mia domanda e questa : C'è la possibilità di creare una nuova cartella chiamandola sempre con lo stesso nome della precedente Grazie
Saluti Sinceri da A.Maurizio