User Profile

gehawk · Nov 8 '13, 11:00 AM

Is this getting anywhere?

Code:

Dim f As Boolean

Sub AAA()
    Dim FSO As Scripting.FileSystemObject
    Dim FF As Scripting.Folder
    f = False
    Set FSO = New Scripting.FileSystemObject
    Set FF = FSO.GetFolder("C:\Users\<username>\Desktop\testje")
    DoOneFolder FF
    If Not f Then
        MsgBox "File not found!", vbExclamation
    End If

...

gehawk · Nov 8 '13, 10:35 AM

your code shows me the result in the immediate window.
Could you advise me how to proceed? I only know some basic vba programming

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Look for specific folder in all existing subfolders in main directory