I have some code that extract file paths and lists them in Sheet1 (rows1 thru
whatever many they may be). The issue is, recently it lists them all in lower
case (paths in lowercase) instead of like before proper case as you see it on
Address bar of the folder. The other issue is, sometime when I hit the find
button, I get the message €˜No files found and I know they are there (at
which case Id have to restart the computer to avoid this message).

Does anyone have any idea as to why these two strange behaviors happen
recently?

Thanks for any help provided,
Adnan

Without the code it is difficult to analyse!

--

Regards,
Nigel




"Adnan" (donotspam) wrote in message
...
I have some code that extract file paths and lists them in Sheet1 (rows1
thru
whatever many they may be). The issue is, recently it lists them all in
lower
case (paths in lowercase) instead of like before proper case as you see it
on
Address bar of the folder. The other issue is, sometime when I hit the
find
button, I get the message €˜No files found and I know they are there (at
which case Id have to restart the computer to avoid this message).

Does anyone have any idea as to why these two strange behaviors happen
recently?

Thanks for any help provided,
Adnan

Here's the code Nigel,


Sub SearchFiles()
Dim stPath As String
Dim fnr As Long
Dim c As Long

'Search for files:
Set fs = Application.FileSearch
Sheets("Sheet1").Select
Range("A6:B5000").ClearContents
stPath = Trim(Cells(1, 2).Value)

With fs
.LookIn = stPath
.Filename = "*.xls"
.SearchSubFolders = False
c = 6

If .Execute() 0 Then

For i = 1 To .FoundFiles.Count
Cells(c, 2).Value = .FoundFiles(i)
fnr = .FoundFiles.Count
Cells(5, 3).Value = fnr
c = c + 1
Next i

Else

MsgBox "No Files Found"
Cells(5, 3).Value = 0

End If
End With
Application.Calculation = xlCalculationAutomatic

End Sub


The thing is, I think it is not the code since it was okay few days ago.
Thanks for you help,
Adnan



"Nigel" wrote:

Without the code it is difficult to analyse!

--

Regards,
Nigel




"Adnan" (donotspam) wrote in message
...
I have some code that extract file paths and lists them in Sheet1 (rows1
thru
whatever many they may be). The issue is, recently it lists them all in
lower
case (paths in lowercase) instead of like before proper case as you see it
on
Address bar of the folder. The other issue is, sometime when I hit the
find
button, I get the message €˜No files found and I know they are there (at
which case Id have to restart the computer to avoid this message).

Does anyone have any idea as to why these two strange behaviors happen
recently?

Thanks for any help provided,
Adnan