App.Path

Der kommer et svar fra mig om 2 minutter! :)

Godaften!

Her er mit bud!

* Opret en commandbutton
* Opret en listcontrol
* Opret en filecontrol

* kopier denne kode ind i commandbuttonen:

----------------Start----------------
Private Sub Command1_Click()
On Error GoTo fejl

forfra:
' opret en file og dir box / en command button.

Dim Fra, Til, Fil As String

Fra = App.Path
Til = "c:\Mappe\"

Dir1.Path = Fra
File1.Path = Fra

' kopiere
For n = 0 To File1.ListCount - 1
    Fil = Fra
    If Right(Fra, 1) <> "\" Then: Fil = Fil & "\"
    Fil = Fil & File1.List(n)
   
    FileCopy Fil, Til & File1.List(n)
Next n

' Kantoraza

Exit Sub
fejl:
MsgBox "Opretter den uexisterende mappe!", vbCritical
MkDir Til
GoTo forfra
End Sub
------------Slut-------------------


Håber at det var det som du var ude efter!

Held og lykke til!
Venlig hilsen "KantoRaZA"

kanon - flot svar, men har lige et par spørgsmål inden point kommer :-)
listcontrol = Drivelistbox ok ?
Filecontrol = Filelistbox ok ?
Og jeg vil gerne have til ikke er lige med "c:\mappe" men lig med drevet man vælger i DriveListboxen ala drive.drive\mappe, da mappen altid eksistere, men nogle gange på drev c andre gange på d, eller e...
Håber du vil hjælpe videre. Dejligt med dit svar indtil videre.

Tak....

For at skifte til funktionen, skal du oprette en dirbox mere. Sæt denne kode ind i ovenstående kode i den linje hvor "til" tildeles en værdi.

til = Dir2.Path
if right(til,1)<>"\" then
til = til & "\"
end if


/KantoRaZa\

Takker endnu engang, er nu kommet videre med via din hjælp :-)
Nu kan jeg vælge mappe hvor der skal kopieres. Men kan jeg forud definere at når jeg vælger drevet f.eks. D ved den at destn. skal være d:\mappe så jeg ikke også skal vælge mappen manuelt. Og et lille spørgsmål mere: hvis jeg f.eks. kun vil have *.bmp filerne kopieret fra app.path kan det lade sig gøre. Hvis du kan hjælpe med alt dette, så siger vi istedet 60 point, ok ...

ok... Der kommer et svar om lidt...

Bemæk! Helt nyt svar, hvilket vil sige at du ikke skal bruge ovenstående kode! :)

Jeg synes at det var for stort et projekt at indskrive det hele her på eksperten, så jeg har uploaded det så du bare kan downloade det...

http://www.friserverplads.dk/basicpage/kopier.zip

Held og lykke til! :)

kanon ---- Det virker.. alt. 1000 tak.
Kan jeg ikke afsætte de ialt 60 point, mente der var en funktion til dette. Er der ikke det ?. Du skal have alle pointene.

Fandt det med point'ene selv. Takker for hjælpen.

Tak for pointene... :) ...