Jag fick tidigare här hjälp med en kod för att kopiera folder och subfolder.
Nu visar det sig att det inte fungerar riktigt.
<code>
Dim fldr As folder
GammalMapp = frMultiLanguage.StatusBar1.Panels(1).Text
'kopiera undermapparna för backup
Set fldr = fso.GetFolder(GammalMapp)
For Each folder In fldr.SubFolders
'MsgBox Folder.Name
folder.Copy GammalMappOLD
frMultiLanguage.info.Caption = frMultiLanguage.info.Caption & folder.Name & ", "
Next
</code>
Vad som händer är följande.
Via msgboxen så kan jag se att foldernamnen stämmer, men den kopiera bara undermapparna till dem.
Jag har försökt att skriva en for sling, men kommer bara fel hela tiden.
Några tips?

Kan du inte använda CopyFolder funktionen?
<code>
Dim fso As Scripting.FileSystemObject
Set fso =New Scripting.FileSystemObject
fso.CopyFolder GammalMapp, GammalMappOLD
</code>

Hej Andreas.
Ungefär så har jag försökt hela dagen, med vissa variationer, men jag får hela tiden samma fel:
<code>
Run-time error '5':
Invalid procedur call or argument
</code>
Men sedan så kan det ju också finnas flera mappar, och undermappar därför
så misstänker jag att man måste ha en for-slinga, eller???
[REDIGERAT]
Ännu lustigare.
När jag ta ut vägen via utforskaren:
<code>
fso.CopyFolder "C:\Inetpub\wwwroot\Hemsidor\HTML_TEST\",
"C:\Inetpub\wwwroot\Hemsidor\HTML_TEST\Old_HTML_TEST\", True
</code>
Så borde det inte vara något fel, men jag får felet 'Path Not Found'
???
[REDIGERAT]
Om jag gör så här:
<code>
fso.CopyFolder frMultiLanguage.Dir1.Path & "\" & folder.Name, GammalMappOLD, True
</code>
så får jag inga fel men inte heller att den utför någonting.
Några tips?