Beiträge von client

    vielen dank !!!
    funktionieren tut es auch
    verstehen tue ich nur die ersten paar zeilen den rest nicht mehr

    Dim ws As New NotesUIWorkspace
    v_ReturnValue = ws.OpenFileDialog(False, "Wählen Sie eine CSV-Datei aus", "CSV Files|*.CSV", "C:\") -> das hier ist klar


    und das hier garnicht:
    If Not Isarray(v_ReturnValue) Then Exit Sub
    'If v_ReturnValue(0) = "" Then Exit Sub
    fileName = v_ReturnValue(0)

    und weiter gehts... :)


    ich habe den const pfad definiert:
    pfad ="g:\Kunden.csv"


    gibt es möglichkeiten dass ich selbst nach der Datei suche sowas wie " Datei öffnen ... "usw. (mit netzwerkzugriff z.B.windows-explorer) ???
    hab nur das hier als alternative gefunden:
    pfad=Inputbox ("Bitte geben Sie den Pfad ein:")
    ist aber sch..e weil ich die dateiendung mit eingeben muss :(

    danke
    den ersten Teil meiner Aufgabe hab ich schon gelöst...
    hier mein ergebnis:


    Sub Initialize

    Dim Kunden List As Long
    Dim pfad As String

    pfad ="c:\*.csv"
    filenum=Freefile()

    Open pfad For Input As filenum
    i=0

    Do While Not Eof(filenum)
    Input #filenum, kunden(i)
    i=i+1
    Loop

    Forall x In Kunden
    Msgbox x
    End Forall


    Close filenum
    Erase kunden ' löscht die Daten (Kunden List)

    End Sub

    Hallo,
    erstmal danke.
    hab mich mit LS auseinander gesetzt :)
    mit dem agenten kann ich jetzt auf die dtei zugreifen.
    jetzt muss ich die daten , die durch komma getrennt sind, den variablen übergeben ( jeweils ein string pro variable ohne komma und leerzeichen)...
    wie mache ich das den ??
    danke...