FSO Question

[BruceG]

I'm working on an app which in some cases creates subfolders below "App.Path" (got that part working fine) and in some cases I want to go through and delete all such subfolders (each subfolder is named with a specific pattern). The second part is where I'm stuck. I would like to use the FSO; I've used it a little bit and would like to use it more. I envision the pseudocode for this thing as something like the following:

'pseudocode:

For Each Subfolder In (App.Path)
    If Subfolder.Name Like "MyPattern" Then
        fso.DeleteFolder Subfolder.Name
    End If
Next

Can someone help and substitute the pseudocode with the proper VB syntax? I would be eternally grateful ...

[HeSaidJoe]

'this will kill all sub folders in C:\My Documents

Option Explicit


Sub ShowFolderList(folderspec)

    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = f1.Name

        fs.Deletefolder (folderspec & "\" & s)
        s = s & vbCrLf
    Next
   
End Sub


Private Sub Image1_Click()
    Call ShowFolderList("C:\my documents")
End Sub

[BruceG]

Thanks Wayne, I appreciate the help. If you don't mind, here's a follow-up question. I know that in VBScript, all variables are variant, but in straight VB, what would you DIM these variables as? I know that "f" and "f1" would have to be "Folder", but how about "sf"?

[HeSaidJoe]

dim fs as object