Ich habe folgenden Code um Dateien von einer Speicherkarte auf dem PC zu kopiern. Das was mit der Version7.04 gut klappt. Leider mit der 7.50b3 nicht mehr .
Und zwar schiebe ich das Verzeichnis per DragandDrop auf das Script in den Buttonbar und starte das Script. Die Übergabe des Verzeichnisses Verzeichnisses funkltioniert nicht mehr
Hier der CODEAUSSCHNITT vom erkennen des Pfades
Code: Select all
ControlGetText tc_sPath, TMyPanel2 ;Im Root wird zum Schluss ein Backslash angezeigt , ansonste nicht
StringRight tc_sRigth, tc_sPath, 2 ;Entfernen des letzen Backslash wenn vorhanden
if tc_sRigth =\>
{
StringMid tc_sPath, tc_sPath, 1, StrLen(tc_sPath) - 2
tc_CutStr = 2
} ELSE {
tc_CutStr = 1
StringMid tc_sPath, tc_sPath, 1, StrLen(tc_sPath) - 1
}