[VBA/Excel] Directory kopiëren

[Verwijderd]

code:

Sub AutoVorm1_BijKlikken()
If Len(Dir("" & ActiveSheet.Range("a7").Value)) = 0 Then
  MkDir "" & ActiveSheet.Range("a7").Value
End If
End Sub

dit is de enige code die ik kan vinden. deze maakt een directory genaamd met de waarde van cel A7.
Maar ik heb een standaard directory (met daarin 3 excel files), en deze wil ik kopieren (in zelfde directory) maar dan met de naam die in cel A7 staat.

ik kan nergens hiervan iets vinden. Kan iemand me hier verder helpen?

[NMe]

Waar hoort mijn topic?

PRG>>OFF

[jwpmzijl]

Hallo ShadowMan, je stuurt ons toch geen verkapt script request

But as always Google is your friend De 2de hit brengt je op een pagina waar je de volgende tekst kunt vinden, en tevens een aantal andere file gerelateerde functies. Kortom studietijd

How to copy a file (the file must be closed):
FileCopy "OrgWorkBook.xls", "CopyWorkBook.xls"
' copies OrgWorkBook.xls to CopyWorkBook.xls in the active folder
FileCopy "OrgWorkBook.xls", "F:\My Documents\CopyWorkBook.xls"
' copies OrgWorkBook.xls from the active folder to F:\My Documents\CopyWorkBook.xls