Get folder paths vba

[Arpanakumar]

Hello Friends.

I need to get folder paths in a given folder with all the file names.

I really appreciate for your quick help.

 

[Monty]

Hello Arpana.

Try this.

Sub Get_folder_paths_vba()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder("C:\Users\MONTY\Desktop\New") 'Change the path here
i = 1
For Each objSubFolder In objFolder.subfolders

Cells(i + 1, 1) = objSubFolder.Name

Cells(i + 1, 2) = objSubFolder.Path
i = i + 1
Next objSubFolder
End Sub

 

[Arpanakumar]

Thanks Monty

Will check this and get back to you.

 

[Arpanakumar]

Monty it works.

Can i have little modification, may be i asked question wrong need file paths

it gives folder paths,Am sorry for confusion guys.

 

[Monty]

Try this.

Sub Get_folder_File_path_vba()
Dim varDirectory As Variant
Dim flag As Boolean
Dim i As Integer
Dim strDirectory As String

strDirectory = "C:\Users\MONTY\Desktop\" 'Change Path here
i = 1
flag = True
varDirectory = Dir(strDirectory, vbNormal)

While flag = True
If varDirectory = "" Then
flag = False
Else
Cells(i + 1, 1) = varDirectory
Cells(i + 1, 2) = strDirectory + varDirectory

varDirectory = Dir
i = i + 1
End If
Wend
End Sub

 

[Arpanakumar]

It works

One more Quick question and sorry to bother you.
Wanted a button which will browse the folder on selection it should get all the files with path

Example

Colum A Column B

File name File Path

Thank you for your efforts.

 

[Monty]

Try this.

Sub Get_folder_file_path()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer
Dim flder As FileDialog
Dim foldername As String

Set flder = Application.FileDialog(msoFileDialogFolderPicker)
foldername = flder.Show

foldername = flder.SelectedItems(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objFolder = objFSO.GetFolder("C:\Users\MONTY\Desktop\")
Set objFolder = objFSO.GetFolder(foldername)
i = 1

For Each objSubFolder In objFolder.subfolders

Cells(i + 1, 1) = objSubFolder.Name

Cells(i + 1, 2) = objSubFolder.Path
i = i + 1
Next objSubFolder
End Sub

 

[Arpanakumar]

Works well

A complete package for me now with one last query on the mentioned code.

instead of giving path in the code. can we make it dynamic.

Still to go with many more questions as i struck with.

 

[Monty]

Hello Arpana.

Did you test the code provided.

Earlier code was not dynamic now the code is dynamic on click of a button open's a dialog box and you can select folder.

Please accept my piece of advise when somebody provides you a code try understand it before you test it that how am doing to learn form our experts, Still confusion forum is ready to take your questions. Happy learning..All the best..Waiting for more interesting questions from you.

i have commented in the above code.
'Set objFolder = objFSO.GetFolder("C:\Users\MONTY\Desktop\")
Set objFolder = objFSO.GetFolder(foldername)

Let me know if i confused you.

 

[Arpanakumar]

Thanks Solved!!!!
Noted your points.