Oprettelse af mappe, og derefter kopier mappe til den nye mappe.

Et par stumper:

    Sub Copy(fnm1 As String, fnm2 As String)
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim c As Integer
        Dim more as boolean = True
        While (more)
            c = f1.ReadByte
            If c >= 0 then
                f2.WriteByte(CType(c, Byte))
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
    End Sub

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

Dim newdir As String = "C:\" & DateTime.Now.ToString("dd-MM-yyyy")

Directory.CreateDirectory(newdir)

Nu er jeg rimelig nybegynder til dette.

Så jeg har gjort det på denne måde: (Hvilket ikke virker, du kan måske fortælle mig hvorfor):

Jeg har en knap som udløser dette:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newDir As String = CreateDir()
        CopyDir("c:\backuptest\", newDir)

    End Sub

Derefter har jeg lavet CreateDir på denne måde:

Function CreateDir()
    Dim newdir As String = "C:\" & DateTime.Now.ToString("dd-MM-yyyy")
    Directory.CreateDirectory(newdir)

    CreateDir = newdir
End Function


Jeg får disse 5 fejl:

Name 'CreateDir' is not declared.
Name 'CopyDir' is not declared.
Statement is not valid in a namespace.
Statement is not valid in a namespace.
Statement is not valid in a namespace.

Hvad gør jeg lige ?

Mvh

Jens

Godt, det var så mig som fattede nul og nix. Nu har jeg fået tingene kopieret ind i den rigtige class.

Nu får jeg disse 5 fejl:

Type 'Stream' is not defined.
Type 'Stream' is not defined.
Name 'Directory' is not declared.
Name 'Directory' is not declared.
Name 'Directory' is not declared.

CreateDir og CopyDir skal være kendt hvor de bruges (hvis de er i samme klasse
skule det være OK).

Så mangler du vist kun at importere System.IO

Imports System.IO

Yeps nu virker det. Der manglede dog et "\" i denne linie

Copy(f, dir2 & "\" & f.Substring(dir1.Length))

Men det virker nu.

Tusinde tak for det.

Laver du lige et svar, det virker som det skal.

Mvh

Jens.

Lige en lille detalje, hvis nu der er oprettet undermappe i den mappe som skal tages en kopi af, så forekommer der en fejl fordi mappen ikke findes. Hvordan laver jeg sådan at det tjekkes om mappen findes, hvis den ikke gør så skal den oprette den. Der kan godt ske der er mapper under mapper under mapper (Træstruktur).

Er dette noget der er hurtig ordnet ?

Mvh

Jens K

If Not Directory.Exists(dir) Then
    Directory.CreateDir(dir)
End If

svar

If Not Directory.Exists(d) Then
  Directory.CreateDirectory(Dir)
End If

Der var den.

Tak for det

<jens_k>: Husk du har en 'efterladenskab' ved
http://www.eksperten.dk/spm/552032

Yeps, skal jeg nok lige ordne.

Tak for reminderen.

Mvh

Jens K