Private Function FileExists(ByVal PathAndFileName As String) As Boolean
On Error Resume Next
FileExists = (GetAttr(PathAndFileName) And vbDirectory) = 0
On Error goto 0
End Function
Private Function FileExists(ByVal PathAndFileName As String) As Boolean
On Error Resume Next
FileExists = (GetAttr(PathAndFileName) And vbDirectory) = 0
On Error goto 0
End Function
Permessi di invio
Rispondi quotando