ascolta il codice per evitare l'errore non funziona, cmq prova a correggermi questo:

Dim nomefile As String
Dim filebmp As String
Dim filenameSenzafsh As String
Dim lenfilename As Integer
Dim traccia As String

NOMEDIR = File1.Path
filenameSenzafsh = File1.List(File1.ListIndex)
lenfilename = InStr(1, filenameSenzafsh, ".fsh")
filenameSenzafsh = Left(filenameSenzafsh, lenfilename - 1)
'filebmp = File1.Path & filenameSenzafsh & "\" & filenameSenzafsh & ".bmp"
filebmp = File1.Path & "\" & filenameSenzafsh & "\" & "0000" & ".bmp"
NOMEDIR = File1.Path & "\" & filenameSenzafsh

Kill filebmp / " 0000.bmp"

Vedi l'ultimo comando Kill? quello non funziona perchè scrivo male correggi?