Dim F As Integer
Dim sLine As String
Dim sData() As String
Dim i As Long
Dim sVerz As String 
 
F = FreeFile
Open "Importdatei.dat" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  sData = Split(sLine, ";")
 
  ' Verzeichnis
  sVerz = sData(1)  
  ...
 
  For i = 2 To UBound(sData) - 1
    ' in sData(i) steht jetzt die Image-Datei
    ...  
  Next i
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de