Hallo,
ich habe ein Programm das per „Drag and Drop“ oder mit FileOpen Dialog,
Dateinamen und die Pfade in eine Listbox schreibt. Danach kann man mit ein paar
Parametern die Dateien umbenennen. Das Ganze funktioniert einwandfrei. Wenn ich
das Programm für den AppStore vorbereite und die Sandbox aktivere, dann
funktioniert das Umbenennen nur noch, wenn ich die Dateien über den FileOpen
Dialog einlese. Alle Dateien die per Drag and Drop in die Listbox aufgenommen
wurden, werden nicht umbenannt. Es gibt einen Error Code -5000. Inzwischen habe
ich herausgefunden, dass Dateien die vom Desktop in die Listbox gezogen werden
auch in der Sandbox umbenannt werden. Laut Apple Dokumentation werden beim
Entitlement „Read / Write access to user selected Files“ alle Aktionen über
FileOpen Dialog und Drag and Drop unterstützt.
Hatte jemand schon das gleiche Problem oder eventuell schon eine Lösung?
Hier ein Auszug der App:
MyRenameFile = GetFolderItem(LBRename.cell(0,1))
if MyRenameFile.Directory = false then
MyRenameFile.Name = MyNewString
end if
dim erc as integer
erc=MyRenameFile.LastErrorCode
if erc <> 0 then
MsgBox str(erc)
end if
Gruß
Horst Jehle
