How to Delete a certain Filetype with FSO

[CMPaccess]

I have been trying to write a sub which would look in a folder and delete only certain file types.

for example the folder would have three file types but I only want to get rid of 2.

I hav tried something like this.


Dim PathnameDGN
Dim PathnameDWG
PathnameDWG = DrgDest & "*.dwg"
PathnameDGN = DrgDest & "*.dgn"

Set ds = CreateObject("Scripting.FileSystemObject")
If Not ds.FileExists(PathnameDWG) Then
ds.DeleteFile (PathnameDGN)
Else
ds.DeleteFile (PathnameDWG)
End If

This partially works. Say if the folder contains dgn files it will work but not dwg files unless I switch them round in the code which defeats the object.

Is there a more defined way I can specify which filetypes are to be deleted.

Thansk

 

[CMPaccess]

Ok,

I have cracked it. For those that maybe interested in the future here is how I managed it. In saying that I would appreciate any feedback

thanks

CODE

'Make a new File System object.
Dim fso As FileSystemObject
Dim fsoFolder As Folder
Dim fsoFile As File
Set fso = New FileSystemObject
' Get the FSO Folder (directory) object.
If Len(Dir(DrgDest)) Then
Set fsoFolder = fso.GetFolder(DrgDest)

For Each fsoFile In fsoFolder.Files
If Right(fsoFile.Name, 4) = ".dwg" Then
fsoFile.Delete
Else
If Right(fsoFile.Name, 4) = ".dgn" Then
fsoFile.Delete
End If
End If
Next fsoFile
Else
MsgBox "Invalid Path"
End If

 

[alvechurchdata]

Glad you fixed it. You might try using InStr to find all the extensions in a single line. Something like:

strExt = Right(fsoFile.Name, 4)
If Instr(1, ".dwg.dgn", strExt, 1) > 0
  fsoFile.Delete
End If

Doesn't help much when there are only two file extensions but it would make maintenance easier.

Geoff Franklin

http://www.alvechurchdata.co.uk