Trådstart#1
Jag har problem med en kod för att kopiera folder och subfolder.
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
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?
