Attribute VB_Name = "Utils" Option Explicit Public Function IsEmptyArray(arr() As String) As Boolean On Error Resume Next Dim i As Integer i = UBound(arr) If Err.Number <> 0 Or i < 0 Then IsEmptyArray = True Err.Clear Else IsEmptyArray = False End If End Function
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 11314 | Robert Cowham | Initial population of perforce_software version of P4OFC | ||
//guest/robert_cowham/perforce/P4OFC/main/test/vb/Utils.bas | |||||
#1 | 10843 | Robert Cowham |
Initial version of P4OFC source code. See README.txt (and LICENSE.txt and doc\P4OFC-Design.docx) |