Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Dim intFileCount As Integer, intCounter As Integer
Dim strfiledel As String 'название файла + полный путь к нему
On Error Resume Next
intFileCount = File1.ListCount 'подсчёт кол-ва файлов в FileListBox
For intCounter = 0 To intFileCount - 1
strfiledel = patchf & File1.List(intCounter)
DeleteFile "strfiledel"
Next
patchf = App.Path
patchf = patchf + "\img\"
на форме FileListBox
strfiledel=C:\Documents and Settings\User\Мои документы\InfoTovar\Admin1\img\img9614.jpg - проверял,путь правильный.
Подскажите,почему не удаляются файлы с таким кодом ???
