How to Check Whether an Array Is Empty

In the code below, strFileList is a array of file names (strings).

I want to be sure the array is not empty before I run the File Delete portion of the code.  

Will the method below work for skipping the File Delete portion if there are no values in the array?  

Is there a better way to check to see if the array is empty.
Dim strFileList As String()
        Dim strFileName As String
 
        Dim intFileListItemCount As Integer = 0
 
        If Directory.Exists(strBackupPath) = True Then
 
            strFileList = Directory.GetFiles(strBackupPath, "*.bak")
 
            For Each strFileName In strFileList
                intFileListItemCount = intFileListItemCount + 1
            Next
 
            If intFileListItemCount > 0 Then
                For Each strFileName In strFileList
                    File.Delete(strFileName)
                Next
 
                Return True
            Else
                Return False
 
            End If
        Else 'Directory does not exist
            Return False
        End If

Open in new window

LVL 4
TimSledgeAsked:
Who is Participating?
 
Jorge PaulinoConnect With a Mentor IT Pro/DeveloperCommented:
You can check the Length of the array that gives you the number of elements you have

        If strFileName.Length = 0 Then
            Stop ' array is empty
        End If

Open in new window

0
 
Wayne Taylor (webtubbs)Connect With a Mentor Commented:
I believe that should be...

    strFileList.Length = 0

Wayne
        Dim strFileList As String()
        Dim strFileName As String
  
        If Directory.Exists(strBackupPath) = True Then
             strFileList = Directory.GetFiles(strBackupPath, "*.bak") 
            If strFileList.Length > 0 Then
                For Each strFileName In strFileList
                    File.Delete(strFileName)
                Next 
                Return True
            Else
                Return False 
            End If
        Else 'Directory does not exist
            Return False
        End If

Open in new window

0
 
Jorge PaulinoIT Pro/DeveloperCommented:
>> I believe that should be...
It was a typo :)
0
 
TimSledgeAuthor Commented:
Thanks for your help!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.