Thanks, many many thanks
Yes is was a folder -- my bad english
Sorry
Best regards
Alvin
"Dave Peterson" skrev:
map = folder????
Option Explicit
Sub testme()
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
FromPath = "C:\temp"
ToPath = "C:\my documents\excel\test"
Set FSO = CreateObject("scripting.filesystemobject")
If FSO.FolderExists(FromPath) = False Then
MsgBox "From Folder doesn't exist"
Exit Sub
End If
If FSO.FolderExists(ToPath) = False Then
MsgBox "To Folder doesn't exist"
Exit Sub
End If
FSO.CopyFolder Source:=FromPath, Destination:=ToPath
End Sub
Alvin Hansen wrote:
Thanks but i get a error
I have write this
Remember it not just a file but a hole map
with map and files in
Dim FromFileName As String
Dim ToFileName As String
FromFileName = "h:\city breaks" '???
ToFileName = "c:\city breaks" '???
FileCopy Source:=FromFileName, Destination:=ToFileName
the name "city breaks" is the name on the map
Best regards
Alvin
"Dave Peterson" skrev:
Take a look at the example for FileCopy in VBA's help.
Option Explicit
Sub auto_open()
Dim FromFileName As String
Dim ToFileName As String
FromFileName = "h:\mapname.bmp" '???
ToFileName = "c:\mapname.bmp" '???
FileCopy Source:=FromFileName, Destination:=ToFileName
'ThisWorkbook.Close savechanges:=False
End Sub
Put save this workbook into your XLStart folder.
I commented the last line out. When you're done testing, uncomment it and save
your workbook. When it runs it'll close this workbook--not so good for testing!
Alvin Hansen wrote:
Hi!
I want to make a macro there can
copy a map from one destiantion to another destination
F.esk H:/mapname to c:/mapname
An i want it to do this evrytime I start my excel file
Hope one can help
Alvin
--
Dave Peterson
--
Dave Peterson