Finding Folders containing specific word 1

[royalcheese]

I have a program that creates lots of data and I want to have a automatic clearing function.

I want to look for specific folder say the root is

"c:\program files\MyProgram\"

Then I want to delete any folders (and their contents) within this directory with the word "Output" at the start

EG folders would be deleted

"c:\program files\MyProgram\output-12"
"c:\program files\MyProgram\output-Total"

Can anyone help with this .


Many Thanks in Advance.


Chris

 

[jadams0173]

Maybe some searches for using the File System Object would be a good starting point. the FSO has a FolderExists and a DeleteFolder method.

Lots of discussion about it here. HTH

I tried to have patience but it took to long! -DW

 

[royalcheese]

Cheers ol'boy

This is what used

'Removes outboxes
fil = Dir("c:\program files\MyProgram\", vbDirectory)
Do While fil <> ""

    Check = fil Like "Output*"
    
    If Check = True Then
    oFso.Deletefolder uPF & fil, True
    End If
    
    fil = Dir
Loop

 

[gmmastros]

royalcheese,

You may want to consider using App.Path as your starting folder instead of hardcoding the path. This is more important if you plan on distributing your application. App.Path will return the folder where the executable is running from.

Debug.Print App.Path

So... I suggest changing:
fil = Dir("c:\program files\MyProgram\", vbDirectory)

To
[tt][blue] fil = Dir([!]App.Path & [/!]"\", vbDirectory)
[/blue][/tt]




-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[BobRodes]

I Strongly second George's recommendation.

Bob