Application.FileSearch.Lookin - Point to network path?

[strorg]

I can map a drive [Z:] to a network location and then using Application.FileSearch.Lookin = "Z:" successfully execute. I would prefer to point to the location using the actual path (Application.FileSearch.Lookin = "\\myserver\myfolder\mysubfolder") but the search does not return any files? Any thoughts?

Thanks...Tom

 

[BrianB]

Without seeing the rest of your code we cannot be sure that you are using it correctly. The above line suggests not.

Click in the word "Filesearch" in your module and press F1 key to get help.

 

[strorg]

I have a drive mapped as "Z:". If I enter "Z:" in the Range("CurrentYear") cell the code works fine. If I enter the actual network path in the Range("CurrentYear") cell, no files are found. I am entering the network path exactly as I am mapping it.

Thanks...Tom

Sub CopyFromLIMS()

Application.StatusBar = "Searching for files..."
myYear = Range("CurrentYear").Text

With Application.FileSearch
    .NewSearch
    .LookIn = Range("InputFolder").Text
    .SearchSubFolders = False
    .Filename = "*_" & myYear & "_*.txt"
    '.MatchTextExactly = True
    '.FileType = msoFileTypeAllFiles
    
    If .Execute() = 0 Then response = MsgBox("There were no files found.", vbOKOnly, "File Search")
    If .Execute() > 0 Then response = MsgBox("There were " & .FoundFiles.Count & " file(s) found. Click OK to proceed or Cancel to quit.", vbOKCancel, "Import and process files...")
        If response <> 1 Then Application.StatusBar = False
        If response <> 1 Then Exit Sub
    

'Copy the files from StarLIMS
        Set fso = CreateObject("Scripting.FileSystemObject")
        For i = 1 To .FoundFiles.Count
            Application.StatusBar = "Processing file " & i & " of " & .FoundFiles.Count & "."
            myFileName = .FoundFiles(i)
            
            'On Error Resume Next
            With fso
                .copyfile myFileName, Range("ProcessFolder").Text
            End With
        Next i
        Set fso = Nothing
        Application.StatusBar = False
    End With
End Sub