Flyt samtlige filer fra en mappe til en anden

lidt kode fra lageret:

   
    Private Sub XCopy(dir1 As String, dir2 As String)
        Dim files As String() = Directory.GetFiles(dir1)
        For Each f As String In files
            File.Copy(f, dir2 & f.Substring(dir1.Length), True)
        Next
        Dim dirs As String() = Directory.GetDirectories(dir1)
        For Each d As String In dirs
            XCopy(d, dir2 & d.Substring(dir1.Length))
        Next
    End Sub

den kaldes med 2 dir

så kopierer den alle filer fra første dir (inklusive sub dirs !) til andet dir

lyder bare super, tester det lige

får nogle frmMain.vb(50): Name 'Directory' is not declared.
og samme med File

hvad gør jeg der?

using System.IO; nok

yes yes, det virker fint, men den kopiere istedet for at flytte

ja System.IO

hvis du vil slette i det gamle dir så bruger du File.Move fremfor File.Copy

virker os helt fint hvis jeg fjerner ", True"

men den kan ikke finde ud af undermapper da de vist ikke bliver oprettet i min dir2 mappe

før denne fejl: Additional information: Could not find a part of the path "C:\move2\test\dsa.jpg".

Private Sub XMove(dir1 As String, dir2 As String)
        Dim files As String() = Directory.GetFiles(dir1)
        For Each f As String In files
            File.Move(f, dir2 & f.Substring(dir1.Length), True)
        Next
        Dim dirs As String() = Directory.GetDirectories(dir1)
        For Each d As String In dirs
            Directory.CreateDirectory(dir2 & d.Substring(dir1.Length))
            XMove(d, dir2 & d.Substring(dir1.Length))
        Next
    End Sub

så den allersidste ting :P

den sletter ikke de mapper fra mappe 1 som er blevet flyttet
kan du ik skrive næste kommentar som et svar?

Private Sub XMove(dir1 As String, dir2 As String)
        Dim files As String() = Directory.GetFiles(dir1)
        For Each f As String In files
            File.Move(f, dir2 & f.Substring(dir1.Length), True)
        Next
        Dim dirs As String() = Directory.GetDirectories(dir1)
        For Each d As String In dirs
            Directory.CreateDirectory(dir2 & d.Substring(dir1.Length))
            XMove(d, dir2 & d.Substring(dir1.Length))
        Next
        Directory.Delete(dir1, True)
    End Sub

vil jeg tro

arne_v har du mulighed for at oprette et svar :)

kommer her