Hallo zusammen,

ich habe ein kleines Skript geschrieben welches rekursiv alle unterordner durchlauft und dort Dateien umbenennt.(Gleicher name blos in Großbuchstaben)
Allderdings bin ich nicht wirklich fit in Visual Basic und wollt daher fragen ob man das Skript noch verkürzen kann.

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

[size=2][color=#0000ff]Set[/color][/size][size=2] o = CreateObject("Scripting.FileSystemObject")   [/size][size=2][color=#0000ff]Set[/color][/size][size=2] m = o.GetFolder(".")   [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] x(f)   [/size][size=2][color=#0000ff]For[/color][/size][size=2] [/size][size=2][color=#0000ff]Each[/color][/size][size=2] f1 [/size][size=2][color=#0000ff]in[/color][/size][size=2] f.SubFolders   y(f1)   x(f1)   [/size][size=2][color=#0000ff]Next[/color][/size][size=2]   [/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub   Sub[/color][/size][size=2] y(n)   [/size][size=2][color=#0000ff]Set[/color][/size][size=2] z = o.GetFolder(n)   [/size][size=2][color=#0000ff]For[/color][/size][size=2] [/size][size=2][color=#0000ff]Each[/color][/size][size=2] file [/size][size=2][color=#0000ff]In[/color][/size][size=2] z.Files   u = UCase(file.Name)   o.MoveFile z & "\" & file.Name, z & "\" & u   [/size][size=2][color=#0000ff]Next   [/color][/size][size=2]x(n)   [/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub   [/color][/size][size=2]y(m)   [/size]

Ich bin für jede Hilfe dankbar.

Grüße

formatier erstmal den code, das man damit auch was anfangen kann

der code is in ordnung

ausser das NextEndSub nicht ein wort ist

viel mehr kann man da auch nicht optimieren es sei denn du löst die Recursion auf indem du for schleifen einsetzt aber das ist eher ein rückschritt

Gruß bb

Den Code ist erst nach dem Copy & Paste so komisch geworden. Bei mir im Editor ist der OK.Dank an Euch