---

Guten Morgen Zusammen : )

in einer Textdatei textdatei1.txt habe untereinander Dateinamen aufgelistet.
wie
Datei1
Datei2
.....

Diese Dateien, die in F:\ liegen sollen nacheinander in C:\Temp kopiert werden.

Textdatei lesen:

        Dim Data1 As String, Data2 As String, Data3 As String
        Data1 = txtdateiname01.Text  'Textdatei mit Pfad
        Data2 = txtSavePfad.Text 'Zielpfad

        Try
            Dim FiStr As FileStream = New FileStream(Data1, FileMode.Open)  'lesen
            Dim StrRe As StreamReader = New StreamReader(FiStr)
            Dim sZeile As String
            Dim sZeilenArray() As String

            Do Until StrRe.Peek() = -1
                'Zeile in eine Strinvariable
                sZeile = StrRe.ReadLine

                sZeilenArray = sZeile.Split(CChar(";"))

                Dim file1 As String = "" & sZeilenArray(0)

            Loop
            StrRe.Close()
        Catch except As Exception
            MsgBox(except.Message & vbNewLine & _
            "Erstellen Sie zunächst mit <Anfügen> oder <Überschreiben> die Datei", MsgBoxStyle.Exclamation)
        End Try

Eine Datei kopieren:
File.Copy("E:\Test.txt", "D:\Temp\Test.txt", True)

Wie kann ich das am besten in Visual Studio:NET2003 kombinieren?

oder kennt jemand eine andere Lösung : )?

Danke für Eure Unterstützung.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
wo genau ist jetzt dein Problem? ...bzw. verstehe ich dein Anliegen noch nicht richtig. Was fehlt dir denn noch? Der Code sollte doch soweit .Net-Konform sein.

Ich pers. arbeite mit folgedendem Befehl, wenn ich Dateien auslesen oder generieren möchte.

Beispiel:
Dim Line as String
Dim NestLine as String
Dim Filenr as Integer
Dim Datei as String

Datei = "C:\Datei.txt"
Filenr = 1
FileSystem.FileOpen(Filenr, Datei, OpenMode.Input)
Line = FileSystem.LineInput(Filenr)
Nextline = FileSystem.LineInput(Filenr)

usw.
Daten kopieren kannst du ganz einfach mit:

Dim Usprung as String
Dim Ziel as String

Ursprung = "F:\Datei.xml"
Ziel = "C:\Temp\Datei.xml"

FileSystem.FileCopy(Usprung, Ziel)

HTH

------------------
MFG
Rick Schulz
        Nettiquette (CAD.de)

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rick,

danke für die schnelle Antwort.
Mein Problem ist folgendes:
Ich habe eine txt Datei,
hier sind NUR die Dateibezeichnungen wie z.B.
Stift1
Stift2
..
ohne Endung
Unter F:\sind mehrere Ordner, wo diese Dateien von der Textdatei sein könnten.
Er soll mir den ganzen Pfad F:\ durchsuchen, und wenn er die Datei gefunden hat, diese in C:\temp kopieren

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oh da sieht die Sache schon ganz anders aus. Ob es hierfür vorhandene Funktionen oder API´s gibt, weis ich nicht. Ich selbst habe eine derartige Anforderung so gelöst, indem ich innerhalb eines Verzeichnisses alles durchsucht habe und bei einem Ordner die Funktion rekursiv aufgerufen habe. In deinem Fall könnte man dann die Datei kopieren, ein Flag z.B. Gefunden auf True setzen und so alle rekursiv laufenden Instanzen schließen, um die Verarbeitungszeit zu minimieren. Leider habe ich es noch in VB6 und nicht in .Net. Das Prinzip ist aber in .Net das Gleiche und in meinen Augen, kann man es über die einfachere Befehlsstruktur übersichtlicher aufbauen.

------------------
MFG
Rick Schulz
        Nettiquette (CAD.de)

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tach!

Versuche es mal damit:
(Ich hatte das mal für etwas kompliziertes gebraucht. Deine Anwendung sollte relativ einfach sein.)
Sucht "winnt.bmp" in "c:\windows\" und kopiert, wenn gefunden und vorhanden  nach "c:\temp\".

Code:

---

Imports System.IO

Public Class Form1

    Private Sub main()

        Dim directory As String = "c:\windows\"
        Dim xDir As IO.DirectoryInfo
        xDir = New IO.DirectoryInfo(directory)

        ListFiles("winnt.bmp", xDir)

    End Sub

    Private Sub ListFiles(ByVal pattern As String, ByVal dir_info As DirectoryInfo)

        Try

            ' Get the files in this directory.
            Dim fs_infos() As FileInfo = dir_info.GetFiles(pattern)
            Dim FileCounter As Integer = 0

            For Each fs_info As FileInfo In fs_infos

                If File.Exists(fs_info.FullName.ToString) = True Then
                    Debug.Print(fs_info.FullName.ToString)
                    File.Copy(fs_info.FullName, "c:\temp\" + fs_info.Name.ToString)
                End If

            Next fs_info

            fs_infos = Nothing

            ' Search subdirectories.
            Dim subdirs() As DirectoryInfo = dir_info.GetDirectories()
            For Each subdir As DirectoryInfo In subdirs
                ListFiles(pattern, subdir)
            Next subdir

        Catch ex As Exception
            MessageBox.Show(ex.ToString)

        End Try

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        main()

    End Sub
End Class

---

------------------

http://www.worldcommunitygrid.org

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP