Dateien umbenennen
16.02.2004 13:26:28
Knut
folgendes Problem: Ich habe ein Verzeichnis welches mehrere Dateien der Form: E4432P010_spl.txt, E4432P030_spl.txt, E4432P010_vsm.txt u.s.w. enthält.
Ich möchte jetzt alle Dateien die vom Typ *P010_spl.txt in die Form Wafer1_spl.txt umbenennen. In meinem Aufgezeichneten Makro schein er den Stern (*) nicht zu mögen. wie kann ich es aber anders machen?
Sub Makro1()
' Makro1 Makro
' Makro am 13.02.2004 von Knut Götze aufgezeichnet
ChDir "E:\"
Name "*P010_spl.txt" As "Wafer1_spl.txt"
Workbooks.OpenText Filename:="E:\Wafer1_spl.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(11 _
, 1), Array(21, 1), Array(30, 1), Array(40, 1), Array(51, 1), Array(63, 1), Array(74, 1), _
Array(86, 1)), TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=36
End Sub