that's odd!
Try this then.. here (v1.34) it works fine..
by the way :)
For t=Len(file$) To 0 Step -1
should it go down to 0 or 1 ?
Try this then.. here (v1.34) it works fine..
app=CreateWindow("dirtest",32,32,128,128) button=CreateButton("RequestFile",16,8,96,24,app) Repeat WaitEvent() If EventID()=$803 quit=True If EventID()=$401 file$=RequestFile("load..") path$=cutfilename(file$) DebugLog path$ ChangeDir path$ EndIf Until quit End Function cutfilename$(file$) For t=Len(file$) To 0 Step -1 If Mid$(file$,t,1)="" Exit Next Return Left$(file$,t) End Function
by the way :)
For t=Len(file$) To 0 Step -1
should it go down to 0 or 1 ?