فريدالطحان

تقليل الحجم وتصليح اى مشكلة او تلف داخل القاعدة لو فى تعديل ارجو الافاده

على هدى فكرتك ferrylaw.rar

يعطينى error فى تلك الجملة Private Function GetContentLength(ByVal url As String) As Long Dim hInternet As Long Dim hRequest As Long Dim dwFileSize As Long Dim dwLength As Long Dim dwIndex As Long dwLength = 4 ' DWORD 32 bit value buffer length. hInternet = InternetOpenW(0, 1, 0, 0, WININET_API_FLAG_SYNC) hRequest = InternetOpenUrlW(hInternet, StrPtr(url), 0, 0, 0, 0) If HttpQueryInfoW(hRequest, HTTP_QUERY_CONTENT_LENGTH Or HTTP_QUERY_FLAG_NUMBER, dwFileSize, dwLength, dwIndex) Then GetContentLength = dwFileSize Else GetContentLength = (-1) End If InternetCloseHandle hRequest InternetCloseHandle hInternet End Function