hallo zusammen
ich habe folgenden code.
Sub RueberDamit()
Dim FSO As Object
Dim Folder As Object
Dim strQuellePfad As String
Set FSO = CreateObject("Scripting.FileSystemObject")
' Hier den vollständigen Ordnerpfad angeben mit: \ am Ende!!
strQuellePfad = "D:\03_cablex\00_Aufträge, Störungen\00_leerer Projektordner\"
Set Folder = FSO.GetFolder(strQuellePfad)
' Zielpfad angeben mit: \ am Ende!!
Folder.Copy "D:\03_cablex\00_Aufträge, Störungen\2015\"
End Sub
Nun möchte ich den Ordner wie folgt benennen: Text oder ZaHL aus C6_D6_E6_F6
wi krieg ich das hin? |