'IN UNA PICTUREBOX E' CARICATA L'IMMAGINE PIZZA E FICHI CARICATA SELEZIONADO IL NOME DA UNA LIS
'SELEZIONADO IL NOME DA UNA LISTBOX

Dim NOMESPILLADAMODIFICARE As String = "PIZZA E FICHI" ' DA LISTBOX
Dim NOMESPILLAMODIFICATA As String = "PIZZA E FICHI E PROSCIUTTO" ' DA TEXTBOX

Dim TIPO As String = "35"

Dim IMMAGINECATALOGOPERCORSO As String
Dim IMMAGINECATALOGOMODIFICANOME As String

IMMAGINECATALOGOPERCORSO = "C:\MGSC\MGSC\IMG\CT\CT" & TIPO & "\CT " & NOMESPILLADAMODIFICARE & ".jpg"

IMMAGINECATALOGOMODIFICANOME = "CT " & NOMESPILLAMODIFICATA & ".jpg"


If FileExist(IMMAGINECATALOGOPERCORSO) Then

My.Computer.FileSystem.RenameFile(IMMAGINECATALOGO PERCORSO, IMMAGINECATALOGOMODIFICANOME)

Else
MsgBox("non esiste" & IMMAGINECATALOGOPERCORSO)
End If