Thread: Copyfolder
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Alvin Hansen[_2_] Alvin Hansen[_2_] is offline
external usenet poster
 
Posts: 209
Default Copyfolder

Hi
Tom i hav try but get an error
"BAd file name or number" my code is:
SetAttr "c:\" & tt & tal & kur1 & "\*.*", vbNormal

Before you write i try this
Set f = fso.GetFolder(fso.GetFolder("c:\" & tt & tal & kur1))
f.Attributes = 0
Set fs = fso.GetFile(fso.GetFile("c:\" & tt & tal & kur1 & "\*.*"))
fs.Attributes = 0

Well its working if i instead of *.* write filename.xls. but thats not good
for i dont know the file name nomally.


Reagrds alvin

"Tom Ogilvy" skrev:

use something like

SetAttr "C:\MyFolder\*.*", vbNormal

--
Regards,
Tom Ogilvy

"Alvin Hansen" wrote in message
...
Hi!
I use copyfolder in filesystemobject its working allright i'm happy
but if i copy a folder from a cd. the attribute on the folder gets to
read only and then i can't use copy folder next time, because i don't have
the permission to do this. Is there a way with the caommand copyfolder

where
i can set the folder to bee read and write ??

Regards alvin