Loop through folder and check for folder type

[din2005]

Hi all

is there way to code so to loop through each folder and check if
the folder has a format like...

strFolder = "dd2322" Like "[a-z][a-z]####"

and if not that format possible to delete that folder!

thanks

 

[din2005]

Hi there with the help on a previous thread i've worked it out!

Dim mypath, mydir, myfile, counter, i

counter = 1

' Display the names in C:\ that represent directories.
mypath = "C:\Database\" ' Set the path.

mydir = Dir(mypath, vbDirectory) ' Retrieve the first entry.

Do While mydir <> "" ' Start the loop.
counter = counter + 1 '' counts # of directories passed
strFolder = mydir Like "[a-z][a-z]####"
' Ignore the current directory and the encompassing directory.
If mydir <> "." And mydir <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(mypath & mydir) And vbDirectory) = vbDirectory Then

If strFolder = True Then

Debug.Print mydir ' Display entry only if it
Else
End If


myfile = Dir(mypath & mydir & "\", vbNormal)
Do While myfile <> ""
' Debug.Print "---- " & myfile
myfile = Dir
Loop
End If ' it represents a directory.
End If
mydir = Dir(mypath, vbDirectory) ' Retrieve the first entry.
For i = 1 To counter
mydir = Dir ' Get next entry.
Next
Loop

 

[PHV]

For recursive loop through folder I'd use FSO:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[din2005]

hi phv,

thankU 4 replying...
I thought i nailed this but guess i was wrong

The code below prints out the folders which match a certain criteria how do i change it so that it deletes the ones that don't match that criteria

Private Sub Command1_Click()
Set fsoDelete = CreateObject("Scripting.FileSystemObject")



Dim mypath, mydir, myfile, counter, i

counter = 1

' Display the names in C:\ that represent directories.
mypath = "C:\image\" ' Set the path.

mydir = Dir(mypath, vbDirectory) ' Retrieve the first entry.
strFolder = mydir Like "[a-z][a-z]####"
Do While mydir <> "" ' Start the loop.
strFolder = mydir Like "[a-z][a-z]####"
counter = counter + 1 '' counts # of directories passed

' Ignore the current directory and the encompassing directory.
If mydir <> "." And mydir <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(mypath & mydir) And vbDirectory) = vbDirectory Then


If strFolder = True Then

Debug.Print mydir ' Display entry only if it
Else

' Delete All folders that don't match aa####
fsoDelete.DeleteFolder mypath & mydir, True
Debug.Print mydir
End If


myfile = Dir(mypath & mydir & "\", vbNormal)
Do While myfile <> ""
' Debug.Print "---- " & myfile
myfile = Dir
Loop
End If ' it represents a directory.
End If
mydir = Dir(mypath, vbDirectory) ' Retrieve the first entry.
For i = 1 To counter
mydir = Dir ' Get next entry.
Next
Loop

 

[JerryKlmns]

Typed, not tested

Sub SDFJKG()
Dim fso As Object
Dim myFolder As Object
Dim AllFolders As Object
Dim curFolder As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set myFolder = fso.GetFolder("C:\image")
Set AllFolders = myFolder.Folders
For Each curFolder In AllFolders
    If curFolder.Name Like "[a-z][a-z]####" Then
        Debug.Print curFolder.Name
    Else
        fso.DeleteFolder curFolder.Name
    End If
Next
Set AllFolders = Nothing
Set myFolder = Nothing
Set fso = Nothing
End Sub

 

[JerryKlmns]

din2005

You should have kept that posting thread705-1204057 here, in case someone else was interesting also..