الرجاء توضيح كيف أستدعي ملف

انشىء مشروع جديد

اضف هذا الكود داخل Class Module و سميها clsDownload

Option Explicit

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

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_FLAG_EXISTING_CONNECT = &H20000000
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000

Public Function Get_File(sURLFileName As String, sSaveFileName As String) As Boolean

	Dim lRet As Long
	On Error GoTo err_Fix

	lRet = InternetOpen("", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
	lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
	Get_File = True
	Exit Function
err_Fix:
	Debug.Print Err.LastDllError, lRet
	Err.Clear
	Get_File = False
End Function

ثم ضع على الفورم command1 و اكتب فى حدث الضعط للزر :

 Dim obj As clsDownload
  Set obj = New clsDownload
  Dim bRet As Boolean

	 Screen.MousePointer = vbHourglass
	   bRet = obj.Get_File(Trim("اللينك الخاص بالملف على الموقع" ), "Trim("c:\file.txt))
		If bRet = False Then Me.txtTo.Text = "Error downloading!"
		  Screen.MousePointer = vbDefault
	 Set obj = Nothing
	 MsgBox "Done", vbInformation

الأخ الفاضل half angel

اشكر لك تجاوبك

انا لا اقصد ملف من موقع على الإنترنت

ما اريده هو التالي

لدي مجلد موقعه على c وهذا المجلد يحتوي على عدة ملفات مضغوطة zip المطلوب

اولا _ ان يتم تحديد مسار الملف المطلوب فك ضغطه

ثانيا _ عندما أختار احد تلك الملفات المضغوطة مطلوب ان يقوم بتحويل الملف المضغوط إلى ملف تكست فايل ويتم حفظه مثلا داخل مجلد موجود على سطح المكتب

وجدت في المنتدي في احد المشاركات لأحد الإخوان برنامج يقوم بتحديد المسار لكن لم أستطع من خلاله حفظ الملف والمثال مرفق .... ارجو الإطلاع عليه

ومرفق أيضا ملف البيانات المضغوطة المطلوب جلبها وحفظها كملف نصي

حاجه أخيرة إذا ممكن هل بالإمكان إتمامها ( عند جلب البيانات أريد البانات اللتي في الملف المضغوط يكون ترتيبها كالتالي في الملف النصي اللذي تم إنشائه

1 _ البيانات في العمود الثاني من الملف المضغوط توضع في العمود الأول من الملف النصي

2 _ البيلنات في العمود الأول من الملف المضغودط يتم وضعها في العمود الثاني وأيضا يتم وضعها نفسها في العمود الثالث

3 _ البيانات في العمود الثالث من الملف المضغودط توضع في العمود الرابع للملف النصي

4 _ البيانات في العمود الرابع من الملف المضغودط توضع في العمود الخامس للملف النصي

5 _ البيانات في العمود الخامس من الملف المضغودط توضع في العمود السادس للملف النصي

تحياتي للجميع

مرفق أيضا ملف البيانات المضغوطة المطلوب جلبها وحفظها كملف نصي

unzip.rar

20060513.zip

الإخوة الأعضاء

أرجو من لديه الحل ان يعطينا إياه مشكورا

السلام عليكم

لقد تم تحميل الملف المرفق 15 مرة ولا واحد من الإخوان أفادنا ولو بأي محاولة

......

لماذا لا يكون السؤال بطريقة مباشرة بانك تريد كود برنامج جاهز يقوم بالأشياء التي ذكرتها ؟!

cipher كتب:

لماذا لا يكون السؤال بطريقة مباشرة بانك تريد كود برنامج جاهز يقوم بالأشياء التي ذكرتها ؟!

ماشاء الله هذا اللي طلع منك

منت شايف إني مرفق برنامج والسؤال يدور حوله

لو كنت عاوز برنامج يا استاذ كان طلبتة مباشرة وبمقابل مادى أعرف هذا الشيء

لا وكمان فرحان بالرابط اللي إنت واضعه

فعلا يا شعب يبداء الإجابة قبل ما يقراء السؤال

قال رسول الله صلى الله عليه وسلم ( قل خيرا أو اصمت )