using the extention (.xls) in code..see below code
Here i open the file from mentioned path and read and write 
the values on that.


Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\DIM.txt", 1, True) ' open to 
empty file and also use for open the file which is already 
created
   WriteLineToFile = f.ReadAll  'Read all  the file line to 
line
   msgbox WriteLineToFile

   Set MyFile1 = fso.CreateTextFile
("c:\kamesh.txt",True) 'create new empty file
   MyFile1.WriteLine WriteLineToFile ' Write all the stuf 
in created file
   MyFile1.Close

Hi,

Please try with this script:

Set fileSysObj=CreateObject("Scripting.FileSystemObject")
folderPath="D:\"
If fileSysObj.folderexists(folderPath) then
	Set fileObj=fileSysObj.getfolder(folderPath)
	Set fileObjs=fileObj.files
	For Each FileName In fileObjs
		If FileName.type="Microsoft Excel Worksheet" then
			MsgBox("This is the excel file "&FileName.Name)
		End if
	next
else
	MsgBox("Folder does not exist")
End if