---

Hallo an Alle : )

nun,
in Vb.NET möchte ich folgendes gerne umsetzen:

Mit:

        If txtTIF.Text = "E-*" Then
            My.Computer.FileSystem.MoveFile(C:\Temp\123.txt, _
                C:\Temp\test\123.txt, True)
        End If

kann ich bestimmte Dateien verschieben.

Wie kann ich alle Dateien von einem Ordner verschieben?

z.B. mit

      If txtTIF.Text = "E-*" Then
            My.Computer.FileSystem.MoveFile(C:\Temp\*.txt, _
                C:\Temp\test\, True)
        End If
mag er nicht.

Danke für jede Hilfe.

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

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

---

Hallo Feyza,

ermittel einfach alle Dateien eines Ordners und Durchlaufe dann in einer Schleife alle gefundenen Dateien.
Dadurch kannst du die Dateien beliebig berabreitet, indem du Sie z.B. verschiebst

Ermitteln aller Dateien eines Ordners:

Code:

---

''' <summary>
''' Ließt einen Ordner aus und gibt alle
''' (Optional nur bestimmte Dateitypen) in einem StringArray zurück
''' </summary>
''' <param name="sPfad">Pfadangabe als String des Ordners. Die Ordner wird ausgelesen wird</param>
''' <param name="sDateien">Rückgabe StringArray mit allen Dateien des Ordners</param>
''' <param name="sExtension">Optionale Extensionangabe um Dateitypen auszulesen. Angabe immer ohne Punkt z.B "doc"</param>
''' <returns></returns>
''' <remarks>Daniel Bühling, Schuler Design Automation GmbH, schuler-da.de</remarks>
Public Shared Function OrdnerAufDateienAuslesen(ByVal sPfad As String, _
                            ByRef sDateien() As String, _
                            Optional ByVal sExtension As String = "*", _
                            Optional ByVal bTempSldWorksAusschließen As Boolean = False) As Boolean

        Dim sFile() As String
        Dim sFileExtension As String
        Dim sFileExtensionVonNetAlsoMitPunkt As String
        Dim bDateiInsArray As Boolean

        Try

            'Array leeren
            Erase sDateien

            'Ordner überprüfen
            If IO.Directory.Exists(sPfad) Then
                'Alle Dateien aus dem Ordner auslesen
                sFile = IO.Directory.GetFiles(sPfad)
                'Evtl Dateien verwerfen
                If sExtension <> "*" Then

                    For di As Integer = sFile.GetLowerBound(0) To sFile.GetUpperBound(0)
                        sFileExtension = sFile(di).Substring( _
                            sFile(di).Length - 6, sFile(di).Length - (sFile(di).Length - 6))
                        sFileExtensionVonNetAlsoMitPunkt = IO.Path.GetExtension(sFile(di))
                        If sFileExtension = sExtension Or _
                            sFileExtensionVonNetAlsoMitPunkt = sExtension Then
                            If bTempSldWorksAusschließen Then
                                If System.IO.Path.GetFileNameWithoutExtension( _
                                                    sFile(di)).StartsWith("~") Then
                                    bDateiInsArray = False
                                Else
                                    bDateiInsArray = True
                                End If
                            Else
                                bDateiInsArray = True
                            End If
                            If bDateiInsArray Then
                                If IsArray(sDateien) Then
                                    ReDim Preserve sDateien(0 To sDateien.GetUpperBound(0) + 1)
                                Else
                                    ReDim sDateien(0 To 0)
                                End If
                                sDateien(sDateien.GetUpperBound(0)) = sFile(di)
                            End If
                        End If
                    Next
                Else
                    ReDim sDateien(0 To sFile.GetUpperBound(0))
                    sDateien = sFile
                End If
            End If

            Return True
        Catch ex As Exception
            Trace.WriteLine("Fehler! Wo: " & ex.StackTrace & " Was: " & ex.Message)
            Debug.Assert(False)
            Return False
        End Try

End Function

---

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
Effektive Produktivitätswerkzeuge in der Konstruktion und Zeichnungserstellung.
Automatisiert komplette Baugruppen, Teile und Zeichnungen nach Kundenvorgaben.

SolidWorks API Programmierung; Tools und Addin's für SolidWorks |  kontakt@schuler-da.de

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

---

Hallo Daniel,

danke Dir für die schnelle Hilfe.

Ich habe eine andere Lösung jetzt versucht und eigentlich ist das auch nicht so schlecht ?! : )

            My.Computer.FileSystem.MoveDirectory(arch_wz_a_tif, arch_123, True)
            My.Computer.FileSystem.CreateDirectory(arch_wz_a_tif)

Ich verschiebe den ganzen Ordner und erzeuge gleich ein neues : ))

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

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

---

na wenn du den Ordner verschieben willst, ist das 100% der bessere Weg!

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
Effektive Produktivitätswerkzeuge in der Konstruktion und Zeichnungserstellung.
Automatisiert komplette Baugruppen, Teile und Zeichnungen nach Kundenvorgaben.

SolidWorks API Programmierung; Tools und Addin's für SolidWorks |  kontakt@schuler-da.de

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