Wie ändere ich ein Excel von xls in xlsx und behalte das Erstellungs- und Änderungsdatum per VBS?

Um eine Excel-Datei von XLS in XLSX zu konvertieren und dabei das Erstellungs- und Änderungsdatum beizubehalten, kannst du ein VBScript verwenden. Hier ist ein Beispiel, wie du das umsetzen kannst:

```vbscript
Dim objExcel, objWorkbook
Dim fso, file, oldCreationDate, oldModifiedDate

' Setze den Pfad zur alten XLS-Datei
oldFilePath = "C:\Pfad\zu\deiner\datei.xls"
newFilePath = "C:\Pfad\zu\deiner\datei.xlsx"

' Erstelle ein FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile(oldFilePath)

' Speichere die alten Zeitstempel
oldCreationDate = file.DateCreated
oldModifiedDate = file.DateLastModified

' Erstelle eine Excel-Anwendung
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False

' Öffne die alte XLS-Datei
Set objWorkbook = objExcel.Workbooks.Open(oldFilePath)

' Speichere die Datei im XLSX-Format
objWorkbook.SaveAs newFilePath, 51 ' 51 steht für xlOpenXMLWorkbook (XLSX)

' Schließe die Arbeitsmappe und die Excel-Anwendung
objWorkbook.Close False
objExcel.Quit

' Setze die Zeitstempel der neuen Datei
Set newFile = fso.GetFile(newFilePath)
newFile.DateCreated = oldCreationDate
newFile.DateLastModified = oldModifiedDate

' Bereinige die Objekte
Set objWorkbook = Nothing
Set objExcel = Nothing
Set fso = Nothing
Set file = Nothing
Set newFile = Nothing
```

### Hinweise:
1. Ersetze `C:\Pfad\zu\deiner\datei.xls` und `C:\Pfad\zu\deiner\datei.xlsx` mit den tatsächlichen Pfaden deiner Dateien.
2. Stelle sicher, dass Excel auf deinem Computer installiert ist, da das Skript die Excel-Anwendung verwendet.
3. Speichere das Skript mit der Endung `.vbs` und führe es aus, um die Konvertierung durchzuführen.

Dieses Skript öffnet die alte XLS-Datei, speichert sie im neuen XLSX-Format und setzt anschließend die Erstellungs- und Änderungsdaten der neuen Datei auf die Werte der alten Datei.