Jag försöker loopa genom alla mappar och döpa om alla mappar som inte är märkta i datumformatet yyyy_mm_dd utan som är märkta i formatet yyyy-mm-dd. Hur jag än gör lyckas jag inte byta namnet på mappen... Så här ser koden ut som jag har nu...
<code> MyPath = "D:\MinaBilder\"
set Fso = CreateObject("Scripting.FileSystemObject")
Set Gfo = Fso.GetFolder(MyPath)
Set MyDrive = Gfo.Subfolders

For Each Folder in MyDrive
If Folder.Name <> "Komprimerat" and Folder.Name <> "Provar" and Folder.Name <> "Tavlor" and Folder.Name <> "Testmappar" then
if instr(Folder.name, "_") >0 then
else
strOrigin = MyPath&Folder.name
nyttMappNamn = replace(strOrigin, "-", "_")
'--## här vill jag byta namnet på mappen ...
end if

end if
Next

Set Fso = Nothing
Set Gfo = Nothing
Set MyDrive = Nothing </code>

Det ska gå att göra såhär:

<code>
Folder.Name = nyttMappNamn
</code>

/Micke

Nu förstår jag nog inte riktigt hur du menar...?!

Du kan byta namnet på mappen du kollar genom att skriva Folder.Name = "detta är det nya namnet".

<code>
MyPath = "D:\MinaBilder\"
set Fso = CreateObject("Scripting.FileSystemObject")
Set Gfo = Fso.GetFolder(MyPath)
Set MyDrive = Gfo.Subfolders

For Each Folder in MyDrive
If Folder.Name <> "Komprimerat" and Folder.Name <> "Provar" and Folder.Name <> "Tavlor" and Folder.Name <> "Testmappar" then
if instr(Folder.name, "_") >0 then
else
strOrigin = MyPath&Folder.name
nyttMappNamn = replace(strOrigin, "-", "_")
Folder.Name = nyttMappNamn '--## här vill jag byta namnet på mappen ...
end if

end if
Next

Set Fso = Nothing
Set Gfo = Nothing
Set MyDrive = Nothing
</code>

/Micke

Då vet jag inte vad som är fel, jag får "ogiltigt proceduranrop" På raden med
<code>folder.name = nyttMappNamn</code>

Jag är inte riktigt hemma på det, men enligt www.sloppycode.net/fso/?m=115 så ska det gå att göra så.

/Micke

Varför inte installera Cygwin? Det är rätt så smidigt att göra sådant här i Bash.

Min miss. Värdet i nyttNamnMapp innehåll ju hela sökvägen till mappen och det gillas ju inte...! :)