If CreateObject---strfullpath exist aufsteigend
07.04.2014 08:45:55
Henry
ich benutze ein VBA um E-Mails auf die Festplatte abzulegen.
Wenn der E-Mail Subject identisch ist wie eine bereits gespeicherte EMail dann führt er folgenden Befehl aus:
If CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True Then
strFullPath = strFinalFileName & "(2)" & ".msg"
Leider habe ich xfache Email wo dieses zutrifft und er erstellt damit immer nur eine zweite (2) aber nicht dritte, vierte, fünfte etc....
Im Grunde möchte ich nun das wenn der Name existiert er einen neuen Namen mit aufsteigender Nummerierung erstellt.
Hierfür habe ich versucht eine Schelife zu machen bekomme es aber leider nicht hin.
Do While CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = True
strFullPath = strFinalFileName += 1
Loop Until CreateObject("Scripting.FileSystemObject").FileExists(strFullPath) = False
Funktioniert leider nicht :(
Kann mir jemand helfen ?