One of the biggest features is that it now uses a second process to handle the uploading and downloading (Thanks Yashied). Well I have done a lot of work to this since the last one. estimated finish time for file transfers New right-click menu for selecting columns views (Size, Modification Date, Creation Date.) Some of the new additions that I have been working on are: As always, please let me know if you have any kind of problems. Those scripts have been Obfuscated to remove a lot of unused functions. If you would like to compile it use the scripts in the compile folder I made. Added function that sets back button tooltip to the directory it will navigate to.Īlright so here is the latest update for my FTP Explorer. Created a main icon for script and back buttons. Each listview and richedit are automatically given focus when mouse hovers them.(going to make it optional in future) And who wants to have a hobby thats not fun? Btw this is written to work with v3.3.6.0. Anyway, I got to do something because its becoming not fun anymore. Right now I have so many global vars, and anytime I want to change something it takes ten times more time updating the rest of the script then it did to write the actual change. I'm really starting to see what Valiks always taking about with global variables being bad and creating interfaces that handle different sections of the programs. Even though this project has come a long way from when I started it, I don't like the direction its heading. Its probably going to be a while before I post anything else for this project. All Rights Reserved.Here the latest of my FTP Explorer. LastErrorText Exit Sub End IfĢ000-2022 Chilkat Software, Inc. Download( "",localFilePath)ĭebug.Print http. LocalFilePath = "qa_output/Python-3.4.4.tar.xz" Dim success As Long Set http = New ChilkatHttp ' Set a heartbeat in milliseconds
' See Global Unlock Sample for sample code. ' This example assumes the Chilkat API to have been previously unlocked. Private Sub http_ProgressInfo( ByVal name As String, ByVal value As String) If (percentDone > 25) ThenĮnd If End Sub ' ProgressInfo callback method. ' Remove this to allow for the HTTP download to run to completion. Private Sub http_PercentDone( ByVal percentDone As Long, abort As Long)ĭebug.Print "Percent Done: " & percentDone Private Sub http_AbortCheck(abort As Long)Įnd Sub ' PercentDone callback method. (Visual Basic 6.0) HTTP Download with Progress Event Callbacksĭownloads a file via HTTP or HTTPS and uses event callbacks to monitor progress.ĭim WithEvents http As ChilkatHttp ' AbortCheck callback method.
0 kommentar(er)
