kan jeg sætte en dos funktion i gang?

DU kan godt lave en FIlCopy i VBA! Meen... jeg ved kun lige hvordan man kopier bestemte filer... det vil sige at man skal navngive dem ALLESAMMEN!

MkDir ("C:\TEMP")
Shell ("xcopy C:\*.* C:\TEMP")

Så kopier den ALLE filerne der ligger i C:\ til et ny oprettet bibliotek C:\TEMP

Du skal evt bruge:

Shell ("xcopy H:\*.* H:\Katalog")

Det skal selvfølgelig oprettes som en VBA kode... med evt en knap der kører den!

Tak for Jeres svar - der er lige den detalje, at H:\ indeholder 10.000 filer og det er kun 7.000 af dem jeg vil have kopieret. Altså dem, som jeg har udvalgt i Excel efter import med noget VBA (som jeg selvfølgelig fik hjælp til via Eksperten :-))

Hvordan har du udvalgt dem? Er det kun de udvalgte, der er vist i Excel?

ja, det er kun de udvalgte jeg har stående i en lang kolonne.

Så må du kunne bruge en foreach..next løkke til at hente filnavnene.

jkrons, vil du ikke være rar at uddybe - jeg kender næsten intet til VBA.

Undskyld, jeg var lige gået et øjeblik :-)

Prøv med noget i denen stil:

Sub kopier()
    Dim Navn As String
    Set fs = CreateObject("Scripting.FileSystemObject")

    For Each c In ActiveSheet.Range("a1:a3").Cells
        Navn = c.Value
        Debug.Print Navn
        fs.CopyFile Navn, "c:\jon\"
    Next c
   
End Sub

Ret stien, der skal kopieres til, til den ønskede sti. Prøv evt. med et mindre antal filer først. Med 7.000 filer kan det tage en del tid :-)

Du skal selvfølgelig også rette området, dine navne står i.

jeg tester det lige i eftermiddag, jeg krydser fingre...

Helt i orden :-)

Og slet lige Debug.Print Navn (den skule kun være der mens jeg testede ;-))

DET VIRKER UPÅKLAGELIGT, TAKKER...JKRONS LÆG ET SVAR

Velbekomme :-)

Hvis jeg ønsker at Flytte filerne ISTEDET for at Kopiere dem...hedder det så MoveFile

Js!

Det er noget i vejen med dette
- den virker ikke på I:\#FOTO - KATALOG\1\
- men den virker på I:\#FOTO - KATALOG\

Ligger der en begrænsning i VBA'en:

Sub VisFiler()
Dim FSO As Object
Dim Dir As Object
Dim Fil As Object
Dim i As Long
Dim sti As String
MsgBox "Dette er meget meget simpelt, med en beskeden indsats kunne programmet blive helt pænt med kanpper og andet gejl ;o)"
sti = InputBox("Indtast sti til folder (f.eks. 'I:\#Foto - scanigros\1\'", "Indtast sti", "I:\#Foto - scanigros\1\")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = FSO.GetFolder(sti)
Set Fil = Dir.Files
i = 1
Cells(i, 1).Formula = "Filnavn"
Cells(i, 2).Formula = "Filstørrelse (byte)"
Cells(i, 3).Formula = "Fil oprettet dato"
For Each Fil In Dir.Files
  i = i + 1
  Cells(i, 1).Formula = Fil.Name
  Cells(i, 2).Formula = Fil.Size
  Cells(i, 3).Formula = Fil.DateCreated
Next Fil
End Sub

Skal jeg oprette et nyt spørgsmål?

Du beh'øbver ikke atr oprette et nyt spørgsmål. Jeg kigger lige på det og vender tilbage, men jeg har desværre ikke tid før i morgen.

OK, det lyder rigtigt godt.