arne_v ftp

Hej Arne

Har benyttet mig af din fornemme klasse, men har et lille problem hvor den fejler, håber du kan hjælpe mig, da jeg er kørt lidt fast.

Jeg har udarbejdet følgende Sub til klassen.

Public Sub UpLoadMask(ByVal mask As String, ByVal binary As Boolean, ByVal Path As String, ByVal ToPath As String)
        Dim sr As String
        Dim fileEntries As String() = Directory.GetFiles(Path)
        Dim fileName As String
        Dim fileName2 As String
        If ToPath <> "" Then
            ChDir(ToPath)
        End If
        For Each fileName In fileEntries
            If fileName.IndexOf(mask) <> -1 Then
                UpLoad(fileName, True)
                fileName = Replace(fileName, Path, "")
                sr = ShortDir()
                fileName2 = ""
                For Each f As String In sr
                    If f = vbCr Or f = vbLf Then
                        If fileName2 <> "" Then
                            If fileName2.IndexOf(mask) <> -1 Then
                                If fileName2 = fileName Then
                                    File.Delete(fileName2)
                                End If
                            End If
                            fileName2 = ""
                        End If
                    Else
                        fileName2 = fileName2 + f
                    End If
                Next
            End If
        Next fileName
    End Sub

Denne benyttes bla sådan:

UpLoadMask(".xml", True, PathSearch + "XML", "l2s")

Ved kald flere gange fejler den, det ser ud som om det er når der efter en Upload kaldes en eks. ShortDir().

Stedet hvor den fejler er :
Sub SetupData

Linie:
Dim addrparts As String() = dataaddr.Split("()".ToCharArray)(1).Split(",".ToCharArray)

Jeg har fundet frem til at det skyldes at :
Dim dataaddr As String = Command(ctrlstm, "PASV")
ikke altid retunere de fulde informationer men nogle gange mangler ip + div.

Håber du kan hjælpe.