Paste filenames into cells

A

Akash

Dear Don,
I was going through the earlier one of your mail on 14th Dec regarding
Paste filenames into cells

there u have given a code

Sub GetFileList()
Dim iCtr As Integer

With Application.FileSearch
.NewSearch
.LookIn = "c:\aa"
.SearchSubFolders = True
.Filename = ".xls"
If .Execute > 0 Then
For iCtr = 1 To .FoundFiles.Count
Cells(iCtr, 1).Value = .FoundFiles(iCtr)
Next iCtr
End If
End With
End Sub
=====
or DIR

Sub anotherfindfiles()
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim MediaFileLocation As String
MediaFileLocation = "c:\yourfolder\*.xls"
FN = Dir(MediaFileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub

I am not able to execute it. Or u can say i m not able understand how
the macro works.
How the user can select files from a single folder. Instead of opening
them.

Awaiting for ur mail...

Regards

Akash
 
D

Don Guillett

The original post said to make a list on a worksheet. It should be fairly
self explanatory. Just change the path to your folder/directory.
 
A

Akash

Dear Don,

Thanks for the Confirmation, I tried and i find that its working, I
beleave that i have found the perfect guy for the Excel tips. Amazing
work.

More over i want that if the macro is called it should prompt the user
to select the folder, so that user selects the foder and then the macro
extract file name in one column & the patch in the other column.

Is that possible

If yes pls do help me in this regards

Thanks

Akash
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top