Dim filedetails = detailString.Split(New String() {vbCr & vbLf}, StringSplitOptions.RemoveEmptyEntries) >Dim zipFiles As List(Of String) = (From filedetail In filedetails.Where(Function(name) System.IO.Path.GetExtension(name) = ".zip")filedetail).ToList()(Hope the VB translation is correct)
' Get the directory If Not loFTP.GetDirectory() Then oApp.ErrorSetup(, loFTP.cMessage) Return False End If ' For each file in the directory For Each loRowDataView In loFTP.oFileDirectory.oDataView lcFile = Trim(loRowDataView("Name"))But, thanks for the information