Chcę sprawdzić puste tablice. Google dał mi różne rozwiązania, ale nic nie działało. Może nie stosuję ich poprawnie.

Function GetBoiler(ByVal sFile As String) As String
'Email Signature
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.ReadAll
    ts.Close
End Function

Dim FileNamesList As Variant, i As Integer
' activate the desired startfolder for the filesearch
FileNamesList = CreateFileList("*.*", False) ' Returns File names
' performs the filesearch, includes any subfolders
' present the result
' If there are Signatures then populate SigString
Range("A:A").ClearContents
For i = 1 To UBound(FileNamesList)
    Cells(i + 1, 1).Formula = FileNamesList(i)
Next i

SigString = FileNamesList(3)

If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)
Else
    Signature = ""
End If

Tutaj jeśliFileNamesList tablica jest pusta,GetBoiler(SigString) nie powinno się w ogóle dzwonić. GdyFileNamesList tablica jest pusta,SigString jest również pusty i to wywołanieGetBoiler() funkcja z pustym łańcuchem. Mam błąd na linii

Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)

odsFile jest pusty. Jakikolwiek sposób, aby tego uniknąć?