سوال در مورد سورس کد دانلود فايل

[gorg313]

سلام به همه

عيدتون مبارک اميدوارم سال خوبي داشته باشيد

دنبال يه سورس کد ساده براي دانلود فايل ميگشتم خوشبختانه پيداش کردم

حالا چند تا مشکل دارم اينکه اين سورس کد فايل را دانلود ميکنه ولي برنامه سنگين ميشه

دوم اينکه درباره فايل در حال دانلود اطلاعاتي نميده من ميخوام درون ليبل يه ميزان از زمان و حجم فايل را بهم بده

سورس خوب و کمي داره از api دانلود هم استفاده شده ممنون ميشم منو کمکم کنيد :لبخند:



Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long


Dim errcode As Long
Dim url As String
Dim localFileName As String

url = "http://www.barnamenevis.org/files/vbm_demo.zip"
localFileName = "c:\vbm_demo.zip"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
MsgBox "دانلود شد"
Else
MsgBox "دانلود کشته شد مُرد بميره"
End If

[ایلیا آخوندزاده]

باسلام و درود
زیاد من تو این بحث فعالیت نکردم و شاید نتونم اونجوری که باید شمارو راهنمایی کنم اما یه پروژه قرار میدم که مشکلی از لحاظ سنگین شدن برنامه نداره.
موفق باشید

[gorg313]

باسلام و درود
زیاد من تو این بحث فعالیت نکردم و شاید نتونم اونجوری که باید شمارو راهنمایی کنم اما یه پروژه قرار میدم که مشکلی از لحاظ سنگین شدن برنامه نداره.
موفق باشید


سلام مرسي از شما ولي اين کدي که داديد با استفاده از کامپوننت اين کارو کرده
من نيازم اينکه درون يه ليبل يه اطلاعات کلي بده حجم و زمان دانلود همين
با Api بشه خيلي بهتره خيلي تلاش کردم همش شکست خوردم :لبخند:

بازم ممنون از جوابتون برم از اول بنويسم ببينم ميشه :تشویق: