Avatar billede mrdj Nybegynder
02. oktober 2006 - 22:15 Der er 9 kommentarer og
1 løsning

Kopering af filer via kode

Hejsa

Jeg sidder og er ved at lave en access database hvor man skal kunne skifte nogle grafiske elementer i en rapport efter smag.

I den forbindelse har jeg brug for noget vb kode som går ned og kopierer en .gif fil over som standard.

F.eks bue-gron.gif skal kopieres til bue.gif som er den .gif fil som rapporten er sammenkædet med.

Hvordan gør jeg lige det ?

Der er et krav VB koden skal gå ind og læse hvad dit "programmer" bibliotek hedder, da det nødvendigvis ikke køres på en dansk maskine.

de grafiske elementer ligger i C:\Programmer\Test\Grafik

På forhånd tak
Avatar billede kabbak Professor
02. oktober 2006 - 23:17 #1
Dim Sti As String, minSti As String
    minSti = CurrentProject.Path
    Sti = "C:\Programmer\Test\Grafik\"
    FileCopy Sti & "bue-gron.gif ", minSti & "\bue.gif"
Avatar billede mrdj Nybegynder
03. oktober 2006 - 00:34 #2
Mange tak for svaret, meget af det ser ud til at kunne bruges. Dog er der en enkelt ting der ikke er helt som ønsket, jeg vil gerne have koden til at gå ned og "læse" program stien, netop fordi jeg ikke ved om programmet bliver afviklet på en engelsk maskine hvor "C:\Programmer" jo hedder "C:\Program Files" og så fremdeles. Hvordan får jeg scriptet til at "læse" dette inden, faktisk som i en .bat fil hvor man jo f.eks skriver %ProgramFiles%\test\grafik
Avatar billede sjh Nybegynder
03. oktober 2006 - 02:37 #3
så bruger du bare Environ$()

Sti = Environ$("ProgramFiles") & "\"
Avatar billede sjh Nybegynder
03. oktober 2006 - 02:38 #4
Sti = Environ$("ProgramFiles") & "\test\grafik\"
Avatar billede mrdj Nybegynder
03. oktober 2006 - 09:04 #5
Jeg har nu prøvet at sætte det nævnte ind i noget kode og jeg kan desværre ikke helt få det til at fungere. Har prøvet at ændre lidt hist og her men kan ikke rigtig stadig få det til at fungere. Så I får lige de eksakte stier her samt hvad der præcis skal ske.

Jeg har "bue-gron.bmp" liggende i "C:\"ProgramFiles"\bager\grafik
den fil skal kopieres til "C:\"ProgramFiles"\bager\grafik\bue.bmp

(bue.bmp kan ligge der i forvejen, så den skal overskrives uden bekræftelse)
Avatar billede kabbak Professor
03. oktober 2006 - 09:23 #6
Ok , så misforstod jeg, jeg troede at den skulle i database biblioteket.

Dim Sti As String , minSti As String

minSti =  Environ$("ProgramFiles") & "\bager\grafik\"
Sti =  Environ$("ProgramFiles") & "\test\grafik\"   
FileCopy Sti & "bue-gron.gif ", minSti & "\bue.gif"
Avatar billede kabbak Professor
03. oktober 2006 - 10:13 #7
der var lige en \ formeget

Dim Sti As String , minSti As String

minSti =  Environ$("ProgramFiles") & "\bager\grafik\"
Sti =  Environ$("ProgramFiles") & "\test\grafik\"   
FileCopy Sti & "bue-gron.gif ", minSti & "bue.gif"
Avatar billede kabbak Professor
03. oktober 2006 - 10:15 #8
Dim Sti As String
minSti =  Environ$("ProgramFiles") & "\bager\grafik\"
FileCopy Sti & "bue-gron.gif ", Sti & "bue.gif"
Avatar billede mrdj Nybegynder
08. oktober 2006 - 22:30 #9
Takker mange gange, det virker bare :-) Smid et svar og jeg accepterer
Avatar billede kabbak Professor
08. oktober 2006 - 22:31 #10
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester