EALA FREYA FRESENA

Private Function GetFiles(ByVal direc As String, _
    ByVal searchpattern() As String) As List(Of String)
 
    Dim filenames As New List(Of String)
 
    For Each filename As String In IO.Directory.GetFiles(direc, "*.*")
       Dim ext As String = IO.Path.GetExtension(filename).ToLower
 
       If searchpattern.Contains(ext) Then filenames.Add(filename)
    Next filename
 
    Return filenames
End Function

listbox1.DataSource = GetFiles("C:\daten", {".d64", ".d71", ".d81"})

TextBox1.Text &= Chr(34) & image & Chr(34)
TextBox2.Text &= "/k

TextBox1.Text = Chr(34) & image & Chr(34)
TextBox2.Text = "/k

EALA FREYA FRESENA

Public Class Form1
    Private Function findd64()
          For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
            "C:\Users\Admin\Test", _
            Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, _
            "*.*")
            ListBox1.Items.Add(foundFile)
        Next
        Return Nothing
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        findd64()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim image As String
        For i = 0 To ListBox1.Items.Count - 1
            image = ""
            image &= ListBox1.Items(i)
            TextBox1.Text &= Chr(34) & image & Chr(34)
            TextBox2.Text &= "/k scan.exe " & image & " -dir > " & Chr(34) & _
              Application.StartupPath & "\list" & Chr(34)
            Debug.WriteLine(TextBox2.Text)
 
        Next
    End Sub
End Class

/k scan.exe C:\Users\Admin\Test\Data\fid2.csv -dir > _
  "c:\users\admin\documents\visual studio" & _
  "2012\Projects\vyperStuff\vyperStuff\bin\Debug\list"
 
/k scan.exe C:\Users\Admin\Test\Data\fid2.csv -dir > _
  "c:\users\admin\documents\visual studio" & _
  "2012\Projects\vyperStuff\vyperStuff\bin\Debug\list"/k scan.exe _
  C:\Users\Admin\Test\Databases\Adressendat.mdf -dir > _
  "c:\users\admin\documents\visual studio" & _
  "2012\Projects\vyperStuff\vyperStuff\bin\Debug\list"

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist