Public Function CheckDir(Directory As String) As Boolean
On Error GoTo ErrNotExist
ChDir (Directory)
CheckDir = True
Exit Function
ErrNotExist:
CheckDir = False
End Function
On Error GoTo ErrNotExist
ChDir (Directory)
CheckDir = True
Exit Function
ErrNotExist:
CheckDir = False
End Function
Forrás: http://www.asap-utilities.com/excel-tips-detail.php?categorie=9&m=97
Nincsenek megjegyzések:
Megjegyzés küldése