Kopiering

Du skal kigge nærmere på FileSystemObject. Med den kan du bl.a. kopiere filer, oprette mapper osv. Det er faktisk ikke så svært, når man kommer lidt ind i strukturen på det.

Kig evt. nærmere her:
http://msdn.microsoft.com/library/en-us/script56/html/jsobjfilesystem.asp

Ok. Kan godt se det er noget jeg kan bruge. Men kan ikke lige se det med oprettelse af mappe (med navnet på d.d.). Har ikke kunne få - (stregerne ud fra d.d.) altså 02-12-02 til 021202 ?

Hej. Jeg prøver lige at lave noget til dig, vent venligst.

Der kan du lave en replace-funktion... Prøv noget i stil med:

Function repDato(tmpDato)
  repDato = Replace(tmpDato, "-", "")
End Function

oprettelse af mappe:

Dim f_dirnavn as string
f_dirnavn = format(date, "ddmmyy")
ChDir "a:\"
MkDir f_dirnavn

Hej igen.

* Opret en knap
* Opret en filelistbox

* Indsæt denne kode i knappen:

- - - START - - -
Private Sub Command1_Click()
    ' Stien
    Dim Path As String
    File1.Path = "c:\docs\"
    Path = "c:\docs\"
   
    MousePointer = 11
   
    ' Kopiere
    Dim CurrentPath, ToWhere As String
   
    On Error Resume Next
   
    ' Laver aktuel mappe
    Dim TheName As String: TheName = "a:\" & Date
    MkDir TheName
   
    For n = 0 To File1.ListCount - 1
    ' Den aktuelle sti
    CurrentPath = Path & File1.List(n)
    ToWhere = "a:\" & Date & "\" & File1.List(n)
   
    FileCopy CurrentPath, ToWhere
   
    Next n
   
    MousePointer = 1
    MsgBox "Filerne er kopieret og sat i orden."

End Sub
- - - SLUT - - -

Ændre lidt i de øverste linjer, til der hvor du har dine docs. (husk at indsætte en diskette!)

Mvh. NorthCode NorthCode@e-mail.dk

Takker..Takker alt virker. Og tak til alle sammen, dejligt med hjælp :-)
Men synes at NorthCode er kommet med den mest fyldigsgørende løsning så pointene gives til ham. Håber det er ok.

tak for det!

Evt. indvendinger kan du sende til:
northcode@e-mail.dk