MS Access VBA get result of WinSCP transfer












1















I have code that uploads a folder to an FTP server using WinSCP.



Dim strSFTPDir As String
strSFTPDir = "C:Program Files (x86)WinSCP"
Dim UploadsDir As String
UploadsDir = DLookup("PathToPics", "Admin") & "Uploads*"
Call Shell(strSFTPDir & "winscp.com /command ""open ftp://***/"" ""put -filemask=|*.ldb """"" & UploadsDir & """"" "" ""exit"" ", vbNormalFocus)


However I need to let Access know whether it's succeeded or failed.
How can I do that?










share|improve this question





























    1















    I have code that uploads a folder to an FTP server using WinSCP.



    Dim strSFTPDir As String
    strSFTPDir = "C:Program Files (x86)WinSCP"
    Dim UploadsDir As String
    UploadsDir = DLookup("PathToPics", "Admin") & "Uploads*"
    Call Shell(strSFTPDir & "winscp.com /command ""open ftp://***/"" ""put -filemask=|*.ldb """"" & UploadsDir & """"" "" ""exit"" ", vbNormalFocus)


    However I need to let Access know whether it's succeeded or failed.
    How can I do that?










    share|improve this question



























      1












      1








      1


      1






      I have code that uploads a folder to an FTP server using WinSCP.



      Dim strSFTPDir As String
      strSFTPDir = "C:Program Files (x86)WinSCP"
      Dim UploadsDir As String
      UploadsDir = DLookup("PathToPics", "Admin") & "Uploads*"
      Call Shell(strSFTPDir & "winscp.com /command ""open ftp://***/"" ""put -filemask=|*.ldb """"" & UploadsDir & """"" "" ""exit"" ", vbNormalFocus)


      However I need to let Access know whether it's succeeded or failed.
      How can I do that?










      share|improve this question
















      I have code that uploads a folder to an FTP server using WinSCP.



      Dim strSFTPDir As String
      strSFTPDir = "C:Program Files (x86)WinSCP"
      Dim UploadsDir As String
      UploadsDir = DLookup("PathToPics", "Admin") & "Uploads*"
      Call Shell(strSFTPDir & "winscp.com /command ""open ftp://***/"" ""put -filemask=|*.ldb """"" & UploadsDir & """"" "" ""exit"" ", vbNormalFocus)


      However I need to let Access know whether it's succeeded or failed.
      How can I do that?







      vba ms-access ftp access-vba winscp






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 28 '18 at 10:37









      Martin Prikryl

      90.4k22179384




      90.4k22179384










      asked Nov 28 '18 at 10:27









      Tristan KingTristan King

      346




      346
























          1 Answer
          1






          active

          oldest

          votes


















          2














          WinSCP indicates a result with its exit code.

          See WinSCP FAQ How do I know that script completed successfully?



          So run WinSCP and make sure it returns 0 (success).

          See VBA Shell and Wait with Exit Code






          share|improve this answer


























          • Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

            – Tristan King
            Nov 28 '18 at 13:33











          • You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

            – Martin Prikryl
            Nov 28 '18 at 13:52











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53517262%2fms-access-vba-get-result-of-winscp-transfer%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          2














          WinSCP indicates a result with its exit code.

          See WinSCP FAQ How do I know that script completed successfully?



          So run WinSCP and make sure it returns 0 (success).

          See VBA Shell and Wait with Exit Code






          share|improve this answer


























          • Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

            – Tristan King
            Nov 28 '18 at 13:33











          • You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

            – Martin Prikryl
            Nov 28 '18 at 13:52
















          2














          WinSCP indicates a result with its exit code.

          See WinSCP FAQ How do I know that script completed successfully?



          So run WinSCP and make sure it returns 0 (success).

          See VBA Shell and Wait with Exit Code






          share|improve this answer


























          • Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

            – Tristan King
            Nov 28 '18 at 13:33











          • You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

            – Martin Prikryl
            Nov 28 '18 at 13:52














          2












          2








          2







          WinSCP indicates a result with its exit code.

          See WinSCP FAQ How do I know that script completed successfully?



          So run WinSCP and make sure it returns 0 (success).

          See VBA Shell and Wait with Exit Code






          share|improve this answer















          WinSCP indicates a result with its exit code.

          See WinSCP FAQ How do I know that script completed successfully?



          So run WinSCP and make sure it returns 0 (success).

          See VBA Shell and Wait with Exit Code







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 28 '18 at 11:04

























          answered Nov 28 '18 at 10:37









          Martin PrikrylMartin Prikryl

          90.4k22179384




          90.4k22179384













          • Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

            – Tristan King
            Nov 28 '18 at 13:33











          • You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

            – Martin Prikryl
            Nov 28 '18 at 13:52



















          • Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

            – Tristan King
            Nov 28 '18 at 13:33











          • You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

            – Martin Prikryl
            Nov 28 '18 at 13:52

















          Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

          – Tristan King
          Nov 28 '18 at 13:33





          Thanks for the answer, but the code in that link is long and confusing and I'm not sure what parts exactly I need? Does my original Call Shell() code need to be changed entirely?

          – Tristan King
          Nov 28 '18 at 13:33













          You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

          – Martin Prikryl
          Nov 28 '18 at 13:52





          You need to replace your Shell call with what the RunApplication function does in the linked code. There's no easier way in VBA. - If you do not explain us, what you find "confusing" about the code, we cannot help you on that.

          – Martin Prikryl
          Nov 28 '18 at 13:52




















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53517262%2fms-access-vba-get-result-of-winscp-transfer%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Contact image not getting when fetch all contact list from iPhone by CNContact

          count number of partitions of a set with n elements into k subsets

          A CLEAN and SIMPLE way to add appendices to Table of Contents and bookmarks