Avatar billede jensen363 Forsker
25. juli 2005 - 09:57 Der er 20 kommentarer og
1 løsning

FileCopy / MoveFile

Hvad er galt her ? Den vil ikke acceptere at kopiere "*.xls"

Hvordan med MoveFile ... tilsvarende syntax ?

Private Sub AfslutImport_Click()
Dim StartFolder As String
Dim SlutFolder As String

StartFolder = DLookup("[ImportFil]", "tblFilplacering", "[ImportID] = 1")
    SlutFolder = DLookup("[ImportFil]", "tblFilplacering", "[ImportID] = 2")
       
    FileCopy StartFolder & "*.xls", SlutFolder & "*.xls"
 
End Sub
25. juli 2005 - 10:00 #1
du kan ikke have * foran .xls i din Filecopy-sætning.
Avatar billede jensen363 Forsker
25. juli 2005 - 10:01 #2
Hej Thomas

Jamen, hvordan kopierer jeg så fra til, når filnavnet er ukendt ????
25. juli 2005 - 10:05 #3
Du er nødt til at loop'e gennem mappen og selv finde alle filnavne. Det er lidt besværligt, men fortvivl ej: der er altid hjælp at hente her: http://www.makeiteasy.dk/eksempler/VBFunktioner.htm :)

Destinationen kan vist bare være en mappe (altså uden .xls på)
Avatar billede jensen363 Forsker
25. juli 2005 - 10:09 #4
Er problemet det samme med MoveFile ?
25. juli 2005 - 10:10 #5
ja
Avatar billede jensen363 Forsker
25. juli 2005 - 10:10 #6
:o(
Avatar billede jensen363 Forsker
25. juli 2005 - 10:38 #7
Nu har jeg fået identificeret FileCopy Startfolder som :

C:\Data\Modeller\Responskampagne\ImportFiler\DataBilag 2.xls

Kopieringen gennemføres, men Slutfolder indeholder en fil unden navn ( .xls )

Hvordan er det lige at jeg får isoleret filnavnet ?
25. juli 2005 - 10:39 #8
det kan du gøre med denne:

Function ExtractFileName(path As String) As String
    ExtractFileName = Mid(path, InStrRev(path, "\") + 1)
End Function
Avatar billede jensen363 Forsker
25. juli 2005 - 10:40 #9
Damn ... du er hurtig i dag :o) har man ikke så travlt i ferieperioden ?
25. juli 2005 - 10:42 #10
jo....men det tager jo ikke mange sekunder at svare, såå....men jo! Jeg har faktisk monstertravlt :o(
Avatar billede jensen363 Forsker
25. juli 2005 - 10:44 #11
Har du noget bud på : http://www.eksperten.dk/spm/634592
25. juli 2005 - 10:50 #12
hmm, nææ...jeg kan godt huske, at have set fejlen før...men jeg har ikke noget bud, desværre.
Avatar billede jensen363 Forsker
25. juli 2005 - 10:51 #13
Ok, tak for hjælpen so far :o) og fortsat god sommer
Avatar billede jensen363 Forsker
25. juli 2005 - 11:07 #14
Mid(path, InStrRev(path, "\") + 1) svarer det til :

Mid(Startfolder, InStrRev(Startfolder, "\") + 1)

Burde man så ikke kunne benytte :

FileCopy StartFolder, SlutFolder & InStrRev(Startfolder, "\") + 1

Sidstnævnet returnere godt nok noget, men ikke en xls fil
Avatar billede jensen363 Forsker
25. juli 2005 - 11:20 #15
Sorry det skulle naturligvis være :

FileCopy StartFolder, SlutFolder & Mid(StartFolder, InStrRev(StartFolder, "\") + 1)

der virker :o)
25. juli 2005 - 11:27 #16
super :)

Og i lige måde!
Avatar billede jensen363 Forsker
25. juli 2005 - 11:28 #17
Skylder dig fortsat en øl på centerpubben ... men til september flutter vi til Roskilde, så bliver det nemmer at afregne ;o)
25. juli 2005 - 11:30 #18
Ah, du har set lyset :o)
Avatar billede jensen363 Forsker
25. juli 2005 - 11:32 #19
Man bliver squ træt af at pendle fra København til Fredericia dagligt
25. juli 2005 - 11:36 #20
nå!??? Det forstår jeg da slet ikke....;o)

Jeg sidder selv og stresser over, at jeg - på et eller andet tidspunkt i dag - skal rejse mig og sætte mig ud i bilen for at køre den ene kilometer ned i centeret og købe nogle forskellige ting. Så jeg kan godt følge dig... ;)
Avatar billede jensen363 Forsker
25. juli 2005 - 11:39 #21
Se det er vi jo lykkeligt forskånet for ... forretningerne har som regel lukket nå endelig vi kommer hjem :o)
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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