Search For Directory & Save File

[christian2016]

Hi Guys,

Need help with a VBA code to save to directory if found.

Saving bit I know how to do it's just finding the sub-folder in a directory path is the bit im having trouble with.

Example:
G:\Test\New\Folder
In this directory you will have folders
1 Jan
2 Feb
3 Mar
4 Apr
5 May
6 Jun (etc)


What I need the VBA code to do.
Depending on what today's current month is I need the VBA code to find the correct month sub folder.

Today its the month of November so directory save path should be
G:\Test\New\Folder\11 Nov

Also The drive letter path is a variable as the user can set it to what they like, so I need the VBA code to also check all letters of drive paths from A-Z to try find a directory path match.
A:\Test\New\Folder\11 Nov
B:\Test\New\Folder\11 Nov
C:\Test\New\Folder\11 Nov (etc.)

If path is found then save file and do what you want it to do if not found a msgbox "directory path not found"

I hope this makes sense and is possible.

Any help is greatly appreciated

Thnaks

 

[Fennek]

Hello,

some code to play around. Please check the reaction of code in case of finding the directory.

Sub Test()
On Error Resume Next
BasePath = ":\Test\New\Folder\"
FolderName = Month(Now) & " " & MonthName(Month(Now), True)
For i = 65 To 65 + 25
    If Dir(Chr(i) & BasePath & FolderName, vbDirectory) <> "" Then
        Debug.Print Chr(i), Err.Number
        Debug.Print Dir(Chr(i) & BasePath & FolderName, vbDirectory)
        Err.Clear
    End If
Next i
Debug.Print i, Chr(i)
End Sub

regards

 

[christian2016]

Thanks Fennek

How do i change the format of the folder name to read the full month example 11 November instead of 11 Nov.

Also in the if statement it finds matches for each letter drive. How do i specifically tell it when the correct file path is found then save file.

Sorry im fairly new to VBA although i'm learning quickly.

Thanks again for your help.

 

[Fennek]

without testing:

FolderName = Month(Now) & " " & MonthName(Month(Now), false)

To search for all possible drives (A-Z) is very unusual (for me). Normally the base path is known. Please describe, what is know and what vba has to search.

regards