
------------------
Mark Newman
#COMPILE EXE FUNCTION PBMAIN LOCAL lerr AS LONG LOCAL lerrapi AS LONG 'So that we know for sure what directory we are working in CHDIR "c:\" FILECOPY "a.a", "b.b" MSGBOX STR$(ERR) MSGBOX STR$(ERRAPI) lerr = ERR lerrapi = ERRAPI MSGBOX STR$(ERR) MSGBOX STR$(ERRAPI) MSGBOX STR$(lerr) MSGBOX STR$(lerrapi) END FUNCTION
FUNCTION FileNotExists_Or_Overwrite (pFileName AS STRING) AS LONG IF DIR$(pFileName) <> "" THEN IF MSGBOX("Do you wish to overwrite the file " _ + pFileName + "?", %MB_YESNO, "Copy File") _ = %IDYES THEN FUNCTION = %True ELSE FUNCTION = %False END IF ELSE FUNCTION = %True END IF END FUNCTION
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: