Joforn

1. Option Explicit
   
2. #If VBA7 Then
   
3.   Private Declare PtrSafe Function PathIsDirectoryW Lib "shlwapi.dll" (ByVal pszPath As LongPtr) As Long
   
4.   Private Declare PtrSafe Function PathFileExistsW Lib "shlwapi.dll" (ByVal pszPath As LongPtr) As Long
   
5. #Else
   
6.   Private Declare Function PathIsDirectoryW Lib "shlwapi.dll" (ByVal pszPath As Long) As Long
   
7.   Private Declare Function PathFileExistsW Lib "shlwapi.dll" (ByVal pszPath As Long) As Long
   
8. #End If
   
9. 
   
10. '检测¤å¥ó¬O§_¦s¦b
    
11. Public Function FileExists(ByVal strPath As String) As Boolean
    
12.   strPath = strPath & String(5, vbNullChar)
    
13.   If PathFileExistsW(StrPtr(strPath)) Then
    
14.     FileExists = PathIsDirectoryW(StrPtr(strPath)) = 0
    
15.   End If
    
16. End Function
    
17. 
    
18. Public Sub FilesExists()
    
19.   Dim I As Long
    
20.   For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
    
21.     Range("B" & I).Value = FileExists("\\89.80.70.1\design\add_word\" & Range("A" & I).Value & ".TXT")
    
22.   Next I
    
23. End Sub

½Æ»s¥N½X