Christiaan Verbree wrote:
Hast du schon einmal versucht den Pfad von Hand also Ordner für
Ordner aufzubauen. Vielleicht kannst du so ja den Fehler umgehen.
Ist wohl zwar nicht die eleganteste Lösung, wenn es aber
funktionieren würde.
Das habe ich derzeit gemacht. Allerdings rückwärts:
dim f as FolderItem
if TargetWin32 and len(UsernameMBS)<>lenb(UsernameMBS) then
f=DesktopFolder
f=f.Parent
if f<>nil then f=f.Parent
if f<>nil then f=f.Child(UsernameMBS)
if f<>nil then f=f.Child("Desktop")
else
Return DesktopFolder
end
if f<>nil then
Return f
else
Return DesktopFolder
end
Allerdings weiß ich nicht, ob der Desktopordner nicht auch umbenannt
werden kann. Dann geht das wieder in die Hose.
MfG, Metti.
