Hi
I run Excel 2007 but are writing code in an 2003excelfile (xls). Suddenly
does not Dir function works in folliwing sub

Sub FindData()

Dim path, filename As String


path = "D:Officebyggaren\CBRE\TEMP\"

Application.ScreenUpdating = False
filename = Dir(path)

......and so on

The path D:Officebyggaren\CBRE\TEMP\ include three files.
Dir have worked but suddenly it doesn't!!! Runing step by step I can see
"Filename ="" ".
Thank's in advance to that guy who can support me
/KentAE
--
If you are old enough, you have your future behind you.

Try to add a \

path = "D:\Officebyggaren\CBRE\TEMP\"


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"KentAE" wrote in message ...
Hi
I run Excel 2007 but are writing code in an 2003excelfile (xls). Suddenly
does not Dir function works in folliwing sub

Sub FindData()

Dim path, filename As String


path = "D:Officebyggaren\CBRE\TEMP\"

Application.ScreenUpdating = False
filename = Dir(path)

.....and so on

The path D:Officebyggaren\CBRE\TEMP\ include three files.
Dir have worked but suddenly it doesn't!!! Runing step by step I can see
"Filename ="" ".
Thank's in advance to that guy who can support me
/KentAE
--
If you are old enough, you have your future behind you.

Perhaps it is typo, but you are missing a '\' character after the drive
spec.

path = "D:Officebyggaren\CBRE\TEMP\"
' should be
path = "D:\Officebyggaren\CBRE\TEMP\"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"KentAE" wrote in message
...
Hi
I run Excel 2007 but are writing code in an 2003excelfile (xls). Suddenly
does not Dir function works in folliwing sub

Sub FindData()

Dim path, filename As String


path = "D:Officebyggaren\CBRE\TEMP\"

Application.ScreenUpdating = False
filename = Dir(path)

.....and so on

The path D:Officebyggaren\CBRE\TEMP\ include three files.
Dir have worked but suddenly it doesn't!!! Runing step by step I can see
"Filename ="" ".
Thank's in advance to that guy who can support me
/KentAE
--
If you are old enough, you have your future behind you.