Array Value to String?

[E_DPSG]

Okay - This is bothering me. I cant get the value out of my array to convert to a string for a FileExists check.

What am I missing??

Public Function CheckRatesFile(ByRef FPath As String, ByRef MyArray As Variant) As Boolean
    Dim FullPath As String
    Dim MyFlag As Boolean
    MyFlag = True
    For Each Item In MyArray
        FullPath = FPath + CStr(MyArray(Item))
        If Not FileExists(FullPath) Then
            MyFlag = False
        End If
    Next
        CheckRatesFile = Flag
End Function

On the CStr(MyArray(Item)) it gives me a type mismatch error.

Any Suggestions?

 

[MickG]

Try

CStr(Item)

 

[JoeMo]

Without knowing what the MyArray parameter you are passing to the function looks like I can only make a guess. Try using:

For i = LBound(MyArray) to UBound(MyArray)

in place of For Each Item ...
Also, CheckRatesFile = MyFlag

 

[Norie]

Loop through without using For Each

For I  = LBound(MyArray) To UBound(MyArray)
   ' other code
Next I

Or just use Item not MyArray(Item).

    FullPath = FPath + CStr(Item)

 

[Scott Huish]

Instead of + use & to concatenate strings.

FullPath = FPath & MyArray(Item)

If your backslash is not present in FPath or in the array elements:

FullPath = FPath & "\" & MyArray(Item)

Your MyFlag can come out of the If:

MyFlag = FileExists(FullPath)

 

[E_DPSG]

Thanks guys. I have been switching back and forth between vba, .Net, Java - forgetting proper syntax for each. I used the cstr(Item) and it works fine.

The MyArray is a list of filenames compiled from a user form select statement. This was a check to see if all files existed and were ready for an import call - as I am not controlling the creation of the Src Files.

Thanks again all!