BBC BASIC Programmers' Reference

by Richard Russell, October 2010

Windows Explorer lets you copy files from one place in the filesystem to another (e.g. from one folder to another, or from one drive to another) by means of Copy and Paste operations, analogous to how you might copy-and-paste text from one document to another. This article describes how you can access the Shell Clipboard from your BASIC program, so you can paste files that have been copied in Windows Explorer, or copy files that can then be pasted in Windows Explorer.

Pasting files from the Shell Clipboard uses a similar mechanism to that described in the article Receiving dropped files. The following code checks to see if there are any files on the Shell Clipboard and if so accesses them:

      CF_HDROP = 15
      MAX_PATH = 260

      DIM Buffer% MAX_PATH

      SYS "IsClipboardFormatAvailable", CF_HDROP TO res%
      IF res% THEN
        SYS "OpenClipboard", @hwnd%
        SYS "GetClipboardData", CF_HDROP TO hdata%
        IF hdata% THEN
          SYS "GlobalLock", hdata% TO hdropfiles%
          SYS "DragQueryFile", hdropfiles%, -1, 0, 0 TO nfiles%
          IF nfiles% THEN
            FOR I% = 0 TO nfiles%-1
              SYS "DragQueryFile", hdropfiles%, I%, Buffer%, MAX_PATH
              PRINT $$Buffer%
            NEXT I%
          ENDIF
          SYS "DragFinish", hdropfiles%
          SYS "GlobalUnlock", hdata%
        ENDIF
        SYS "CloseClipboard"
      ENDIF

Here the filenames are simply printed to the screen. In practice you are likely to want to copy the files and/or to access their contents.

Copying files to the Shell Clipboard is slightly more involved, because you have to build the necessary data structure yourself. The code to do it is listed below; for convenience it uses the FNselectfiles function, to be found in the article Selecting multiple files, to select the file(s) to be copied:

      CF_HDROP = 15
      GMEM_ZEROINIT = &40
      GMEM_DDESHARE = &2000

      MAXFILES = 100
      DIM file$(MAXFILES)
      DIM dropfiles{pFiles%, pt{x%,y%}, fNC%, fWide%}

      nfiles% = FNselectfiles("Select one or more files", "*.*", file$())

      IF nfiles% THEN
        size% = DIM(dropfiles{}) + SUMLEN(file$()) + nfiles% + 1
        SYS "GlobalAlloc", GMEM_DDESHARE + GMEM_ZEROINIT, size% TO hdata%
        SYS "GlobalLock", hdata% TO mem%
        !mem% = DIM(dropfiles{})
        P% = mem% + !mem%
        FOR I% = 1 TO nfiles%
          $$P% = file$(I%)
          P% += LEN(file$(I%)) + 1
        NEXT
        SYS "GlobalUnlock", hdata%
        SYS "OpenClipboard", @hwnd%
        SYS "EmptyClipboard"
        SYS "SetClipboardData", CF_HDROP, hdata%
        SYS "CloseClipboard"
      ENDIF