急呀，各位帮忙看看这段代码总是执行不对

jsyzzym

Private Sub CommandButton1_Click()

Dim a$, b$, c$, d$

a = "LS" & TextBox2.Text & ".DOC"

b = TextBox1.Text

c = "\\zjyz\doc$\" & b & "\TEMP\"

Set fs = Application.FileSearch

With fs

    .LookIn = c

    .FileName = "ls568.doc"

    If .Execute() > 0 Then

        MsgBox "There were " & .FoundFiles.Count & _

            " file(s) found."

    Else

        MsgBox "There were no files found."

    End If

End With

上面代码中如果我将共享目录中的$符号去掉就能找到文件，但加上后却找不到，各位看看问题出在哪儿，但我又需要将共享目录隐藏