' Verweis auf Microsoft Scripting Runtime nicht vergessen!!
 
Private Sub Command1_Click()
Dim oFSO As New FileSystemObject
Dim file1 As String
 
For i = 1 To Grid1.Rows
  file1 = Grid1.Text(i, 2)
    oFSO.DeleteFile Text1.Text & "\fertig_" & file1 & ".wav", True
  Next
End Sub