¤º®e¬°excel 2003ªºµ{¦¡½X¡A½Ð°Ý¦U¦ì¤j¤j¦p¦b2010ª©¥»¸Ó¦p¦ó­×§ï¡AÁÂÁÂ

aaronprada

Public Sub FileSearch(Target)
'ÀÉ®×·j´M¥Î°Æµ{¦¡
'With Application.FileSearch
     Application.FileSearch.NewSearch
     Application.FileSearch.LookIn = "E:\"
     Application.FileSearch.SearchSubFolders = True
     Application.FileSearch.Filename = Target
     Application.FileSearch.MatchTextExactly = True
     Application.FileSearch.FileType = msoFileTypeAllFiles
     If Application.FileSearch.Execute() = 1 Then
        Filegot = Application.FileSearch.FoundFiles(1)
        Exit Sub
     Else
        If Application.FileSearch.Execute() = 7 Then: Exit Sub
        If InStr(Target, "ĵ³ø°O¿ý.csv") > 0 Then: MsgBox "½Ð±N·í¤éÀô±±­ì©lÀɮשñ¤J¥úºÐ¾÷" & vbCrLf & vbCrLf & "©Î½T»{ 7 ­ÓÀô±±­ì©lÀɦW¥¿½T": End
        MsgBox "¥úºÐ¤º§ä¤£¨ì©Î¦³¨â­Ó¥H¤W " & Target & "¡A½Ð«ü©wÀɮצì¸m"
        Filegot = Application.GetOpenFilename(UCase(Right(Target, 3)) & " Files (*" & Right(Target, 4) & "),*" & Right(Target, 4)) '¤â°Ê¨úÀÉ
        If InStr(Filegot, Replace(Left(Target, Len(Target) - 4), "*", "")) = 0 Then: MsgBox "Àɮ׿ï¾Ü¿ù»~" & vbCrLf & vbCrLf & "½Ð¿ï¾Ü" & Target: End
   
'End With
End Sub