Search for Desktop folder name containing string

[Laddy1992]

Hi there. I'm extremely new to VBA and MS-Access.

I very simply need to have specific folder names on my desktop to appear in a msgbox when a form is loaded. This folder then needs to be copied to another location. The folder name contains the characters "BAC". Thus it could be aaBac2013 or bbBack2013. I'm stuck at after obtaining the desktop path. From there I need help. This is my code:

Private Sub Form_Load()
Dim spath As String
Dim strPartName As String
spath = Environ("USERPROFILE") & "\Desktop"
strPartName = "BAC"
MsgBox strPartName, , "strPartName"
End Sub

I know the code is incomplete... hence my request for assistance.
Thanking you

 

[wigi]

Hello

Welcome to MrExcel.

There you go:

Sub wigi()

    Dim spath As String
    Dim strPartName As String


    spath = Environ("USERPROFILE") & "\Desktop"
    strPartName = "*BAC*"


    For Each f In CreateObject("scripting.filesystemobject").GetFolder(spath).subFolders
        If UCase(f.Name) Like strPartName Then Debug.Print f.Name
    Next


End Sub

Can you please use

 tags when you paste code on the forum?
Code tags format the code making it easier to read and hence follow the logic of the code.


You can use [CODE] tags in this way: 


Add the word [color=blue][b][PLAIN][code=rich][/PLAIN][/B][/color] before the first line of code, and
add the word [color=blue][b][PLAIN]

[/PLAIN][/B][/color] after the last line of code.


Or: you could use the "#" icon when changing / composing a message in the Advanced editing screen.


Thanks for your consideration.

 

[Laddy1992]

Wigi

You are the "BEST!!!!". it worked perfectly. Thank yoy very much. I take note of the tag request in future. I will be around more often. Wigi rocks!!!!