Deleting files with VB

[newVBuser]

Hi,

I've got this code which deletes a file using VB:

Dim FileToDel As String

FileToDel = "C:\SomeFileName.txt"

If System.IO.File.Exists(FileToDel) = True Then

System.IO.File.Delete(FileToDel)
MsgBox("File has been successfully deleted")

End If


Is there a way to delete a collection of files at once when they share the same name but have different extensions? I.e...

FileName.doc
FileName.csv
FileName.ppt
FileName.dbf
FileName.txt
etc....

Thanks

 

[newVBuser]

I've now stated looking at this code instead, but am still not sure how to specify any extension, i.e...

FileName.AnyExtension


Dim KillFile As String
KillFile = "c:\temp\temp.doc"
'Check that file exists
If Len(Dir$(KillFile)) > 0 Then
'First remove readonly attribute, if set
SetAttr KillFile, vbNormal
'Then delete the file
Kill KillFile
End If

 

[PHV]

Typed, untested:

strPath = "C:\temp\"
strFile = Dir(strPath & "temp.*")
While strFile <> ""
  SetAttr strPath & strFile, vbNormal
  Kill strPath & strFile
  strFile = Dir()
WEnd

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886