Paste filenames into cells
 

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

Paste filenames into cells
 

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.

--
Don Guillett
SalesAid Software

"Akash" wrote in message
ups.com...
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

Paste filenames into cells
 

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



On Dec 15, 6:14 pm, "Don Guillett" wrote:
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.

--
Don Guillett
SalesAid Software
"Akash" wrote in oglegroups.com...

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