Intraday Tips   Domain Registration   Intraday Jackpot Share Tips

Raj Thackeray
मनसे अध्यक्ष
श्री राज ठाकरे

Funny Indian Hindi Jokes

Listing for Sebi Registered Advisories

Excel Tips

To List your Files Names in your Folder in Excel Sheet

Open Excel

Press Keys {Alt}{ F11 }

A Visual Basic Window will get opened

Put the below mention coding and run the macro

Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
End If
End With
End Sub

Once Done it will ask for the Folder path, provide the folder path it will directly list all the file names, one below the other in the Excel Sheet

Tips Section

Seo in Mumbai

Web Hosting

Linux Hosting

Unlimited Linux Hosting


Home | Advertise Here | Link Exchange | Privacy Policy | Resources | Contact us | About us
Copyright 2008 All Rights Reserved.
Design By Aditya Infosystems
(Best Viewed at 1024 X 768 in IE 5.0 & above & Text Size- Smaller)