This is not an html plugin, it is a VB/VBA function (with VB6 form format) that has no preview, to see it working, you need to add it to your VBA project

If you don't have an idea of what is it, then this is not for you



'**************************************
' Name: IsDirectory
' Description:Returns a Boolean value that indicates if the parameter is a directory.
Syntax: IsDirectory()
' By: Michael Engshun
'
' Inputs:The required argument is a string containing a potential fully-qualified or relative directory name.
'
' Returns:Returns true of the argument refers to an existing and accessible directory; otherwise, returns false. Fucntion returns false if the argument is equivalent to a empty string (i.e. "").

' ' Assumes:Supports drive letters (e.g., "i:\temp", where i: = \\server1\vol1\accessdb) and UNC references (e.g., "\\server1\vol1\accessdb\temp").
Why use IsDirectory() rather than getattr()? getattr() is fine as is. Some of you may need IsDirectory() if:
1. you like more English-like constructs
2. you need a function to return false rather than a 53-"file not found" exception if the parameter is equivalent to a empty string
3. it was easier to find this than find how to do this with getattr().
'
' Side Effects:No known side effects other than handling and converting the 53-"file not found" exception generated by getattr().
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=3372&lngWId=1 for details.'**************************************

Option Explicit
Public Function IsDirectory(ByVal strPath As String) As Boolean
On Error GoTo Err_Default
If IsBlank(strPath) Then
IsDirectory = False
Else
IsDirectory = GetAttr(strPath) And vbDirectory 'vbDirectory = 16
End If
Exit_Routine:
Exit Function
Err_Default:
IsDirectory = False
Resume Exit_Routine
End Function
' required support code - not mine, not pretty.
Function IsBlank(ByVal InString As Variant) As Integer
On Error GoTo Err_Routine
IsBlank = False
If IsNull(InString) Then
IsBlank = True
Else
If Len(Trim(InString)) = 0 Then
IsBlank = True
End If
End If
Exit_Routine:
Exit Function
Err_Routine:
Resume Exit_Routine
End Function