DROPPEDFILE: Difference between revisions
Jump to navigation
Jump to search
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
No edit summary |
No edit summary |
||
Line 26: | Line 26: | ||
''Example:'' Accepting files dragged from a folder and processing the list received by specifying an index. | ''Example:'' Accepting files dragged from a folder and processing the list received by specifying an index. | ||
{{CodeStart}} | {{CodeStart}} | ||
{{Cl|SCREEN}} {{Cl|_NEWIMAGE}}(128, 25, 0) | {{Cl|SCREEN}} {{Cl|_NEWIMAGE}}({{Text|128|#F580B1}}, {{Text|25|#F580B1}}, {{Text|0|#F580B1}}) | ||
{{Cl|_ACCEPTFILEDROP}} 'enables drag/drop functionality | {{Cl|_ACCEPTFILEDROP}} {{Text|<nowiki>'enables drag/drop functionality</nowiki>|#919191}} | ||
{{Cl|PRINT}} "Drag files from a folder and drop them in this window..." | {{Cl|PRINT}} {{Text|<nowiki>"Drag files from a folder and drop them in this window..."</nowiki>|#FFB100}} | ||
{{Cl|DO}} | {{Cl|DO}} | ||
{{Cl|IF}} {{Cl|_TOTALDROPPEDFILES}} {{Cl|THEN}} | {{Cl|IF}} {{Cl|_TOTALDROPPEDFILES}} {{Cl|THEN}} | ||
{{Cl|FOR}} i = 1 {{Cl|TO}} {{Cl|_TOTALDROPPEDFILES}} | {{Cl|FOR}} i = {{Text|1|#F580B1}} {{Cl|TO}} {{Cl|_TOTALDROPPEDFILES}} | ||
a$ = {{Cl|_DROPPEDFILE}}(i) | a$ = {{Cl|_DROPPEDFILE}}(i) | ||
{{Cl|COLOR}} 15 | {{Cl|COLOR}} {{Text|15|#F580B1}} | ||
{{Cl|PRINT}} i, | {{Cl|PRINT}} i, | ||
{{Cl|IF}} {{Cl|_FILEEXISTS}}(a$) {{Cl|THEN}} | {{Cl|IF}} {{Cl|_FILEEXISTS}}(a$) {{Cl|THEN}} | ||
{{Cl|COLOR}} 2: {{Cl|PRINT}} "file", | {{Cl|COLOR}} {{Text|2|#F580B1}}: {{Cl|PRINT}} {{Text|<nowiki>"file"</nowiki>|#FFB100}}, | ||
{{Cl|ELSE}} | {{Cl|ELSE}} | ||
{{Cl|IF}} {{Cl|_DIREXISTS}}(a$) {{Cl|THEN}} | {{Cl|IF}} {{Cl|_DIREXISTS}}(a$) {{Cl|THEN}} | ||
{{Cl|COLOR}} 3: {{Cl|PRINT}} "folder", | {{Cl|COLOR}} {{Text|3|#F580B1}}: {{Cl|PRINT}} {{Text|<nowiki>"folder"</nowiki>|#FFB100}}, | ||
{{Cl|ELSE}} | {{Cl|ELSE}} | ||
{{Cl|COLOR}} 4: {{Cl|PRINT}} "not found", 'highly unlikely, but who knows? | {{Cl|COLOR}} {{Text|4|#F580B1}}: {{Cl|PRINT}} {{Text|<nowiki>"not found"</nowiki>|#FFB100}}, {{Text|<nowiki>'highly unlikely, but who knows?</nowiki>|#919191}} | ||
{{Cl|END IF}} | {{Cl|END IF}} | ||
{{Cl|END IF}} | {{Cl|END IF}} | ||
{{Cl|COLOR}} 15 | {{Cl|COLOR}} {{Text|15|#F580B1}} | ||
{{Cl|PRINT}} a$ | {{Cl|PRINT}} a$ | ||
{{Cl|NEXT}} | {{Cl|NEXT}} | ||
Line 52: | Line 52: | ||
{{Cl|END IF}} | {{Cl|END IF}} | ||
{{Cl|_LIMIT}} 30 | {{Cl|_LIMIT}} {{Text|30|#F580B1}} | ||
{{Cl|LOOP}} | {{Cl|LOOP}} | ||
{{CodeEnd}} | {{CodeEnd}} |
Latest revision as of 10:50, 24 March 2023
The _DROPPEDFILE function returns the list of items (files or folders) dropped in a program's window after _ACCEPTFILEDROP is enabled.
Syntax
Syntax 1
- nextItem$ = _DROPPEDFILE
Syntax 2
- nextItem$ = _DROPPEDFILE(index&)
Description
- After _ACCEPTFILEDROP is enabled, once _TOTALDROPPEDFILES is greater than 0 the list of dropped items will be available for retrieval with _DROPPEDFILE
- When using _DROPPEDFILE to read the list sequentially (without specifying an index&), an empty string ("") indicates the list is over and then _TOTALDROPPEDFILES gets reset to 0.
- When using _DROPPEDFILE with an index (which goes from 1 to _TOTALDROPPEDFILES), you must call _FINISHDROP after you finish working with the list.
- Because it returns a string, _DROPPEDFILE also accepts being followed by a string suffix (_DROPPEDFILE$)
- Keyword not supported in Linux or macOS versions
Availability
- Version 1.3 and up.
Examples
Example: Accepting files dragged from a folder and processing the list received by specifying an index.
SCREEN _NEWIMAGE(128, 25, 0) _ACCEPTFILEDROP 'enables drag/drop functionality PRINT "Drag files from a folder and drop them in this window..." DO IF _TOTALDROPPEDFILES THEN FOR i = 1 TO _TOTALDROPPEDFILES a$ = _DROPPEDFILE(i) COLOR 15 PRINT i, IF _FILEEXISTS(a$) THEN COLOR 2: PRINT "file", ELSE IF _DIREXISTS(a$) THEN COLOR 3: PRINT "folder", ELSE COLOR 4: PRINT "not found", 'highly unlikely, but who knows? END IF END IF COLOR 15 PRINT a$ NEXT _FINISHDROP END IF _LIMIT 30 LOOP |
See also