Command$ flere filer

du kan vel bruge Split

nej for kan se sådan ud: "C:\Documents and Settings\user\Skrivebord\korda-4.jpg C:\Documents and Settings\user\Skrivebord\minipink.jpg"

jeg bruger "send til" som ligger i windows..

er de ikke opdelt med ;

Private Sub Form_Load()
Dim i As Integer
Dim arrFiles() As String

  'Command$ = "file1.txt;file2.txt;file3.txt;file4.txt"

  arrFiles = Split(Command$, ";")

  For i = LBound(arrFiles) To UBound(arrFiles)
    List1.AddItem Trim$(arrFiles(i))
  Next
End Sub

når jeg køre din kode får jeg "C:\Documents and Settings\user\Skrivebord\korda-4.jpg" "C:\Documents and Settings\user\Skrivebord\minipink.jpg"

så laver du bare en step 2

  arrFiles = Split(Command$, """")

  For i = 1 To UBound(arrFiles) Step 2
    List1.AddItem Trim$(arrFiles(i))
  Next

og husk at den skal starte med 1 og ikke For i = LBound(arrFiles)...

Takker .. svar

svar

ha ha svar

:)