>last modified

[Joe C]

I'm using the following to list in a spread sheet all the files in select folders. I know want to list the date next to that and am trying to use .lastmodified, but I cannot seem to write it correclty. Can anyone help?

Code:

f1 = CC & f & ""


With Application.FileSearch
.NewSearch
.LookIn = f1
.FileName = "*.*"
.SearchSubFolders = False
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Offset(r - 1, 0).Value = .FoundFiles(i)
ActiveCell.Offset(r - 1, 1).Value = .FoundFiles(i).LastModified
'r1 = r1 + r1

r = r + 1
Next i
End With

 

[Damon Ostrander]

Hi Joe,

I see two possible sources of problems:

1. Since your code offsets -1 row from the ActiveCell, if the active cell is ever in the first row of the worksheet your code will fail because it will try to access row 0.

2. You didn't mention what CC and f refer to in the following formula:

f1 = CC & f & ""

For this to work, CC concatenated with f should yield a folder path name. The [& ""] does nothing since it is concatenates a null string. Check f1 to make sure it is really the path name you want.

Damon

 

[Joe C]

Thanks for responding. This currently works and teh things you stated were not included to save space. What I was trying to do is add a line which will display the last modified date next to the file name.

On 2002-10-22 16:32, Damon Ostrander wrote:
Hi Joe,

I see two possible sources of problems:

1. Since your code offsets -1 row from the ActiveCell, if the active cell is ever in the first row of the worksheet your code will fail because it will try to access row 0.

2. You didn't mention what CC and f refer to in the following formula:

f1 = CC & f & ""

For this to work, CC concatenated with f should yield a folder path name. The [& ""] does nothing since it is concatenates a null string. Check f1 to make sure it is really the path name you want.

Damon
[/quote]

 

[Joe C]

Thanks for responding. This currently works and teh things you stated were not included to save space. What I was trying to do is add a line which will display the last modified date next to the file name.

On 2002-10-22 16:32, Damon Ostrander wrote:
Hi Joe,

I see two possible sources of problems:

1. Since your code offsets -1 row from the ActiveCell, if the active cell is ever in the first row of the worksheet your code will fail because it will try to access row 0.

2. You didn't mention what CC and f refer to in the following formula:

f1 = CC & f & ""

For this to work, CC concatenated with f should yield a folder path name. The [& ""] does nothing since it is concatenates a null string. Check f1 to make sure it is really the path name you want.

Damon
[/quote]