دریافت اطلاعات از فایل php روی هاست در اکسس روی pc

[m3ha2@yahoo.com]

سلام
من یه فایل php داخل هاستم دارم که وقتی اجرا بشه (یعنی تو مرورگر آدرس اون فایل رو میزنم) خروجی یک متن نمایش میده

حالا

من میخوام اون متن رو توی یک فایل اکسس روی کامپیوترم داشته باشم
پیشاپیش ممنون از لطف دوستان عزیز

[mazoolagh]

http://barnamenevis.org/showthread.php?546325-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D8%A7%D8%B9%D9%84%D8%A7%D9%86-%D8%A8%D8%B1%D9%88%D8%B2-%D8%B1%D8%B3%D8%A7%D9%86%DB%8C-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87

[m3ha2@yahoo.com]

سلام
بسیار ممنون
واقعا راهگشا بود
جهت تکمیل این تایپیک کد رو قرار میدم



Option Compare Database
Option Explicit

Public Type Response
FILE_CONTENT As String
ERROR_MESSAGE As String
End Type

Public Function Read_File(File_Url As String) As Response
On Error GoTo Error_Handler
Dim REQ As Object ' XMLHttpRequest
Set REQ = CreateObject("MSXML2.XMLHTTP")
REQ.Open "GET", File_Url, False
REQ.Send
If REQ.status = 200 Then ' STATUS CODE 200 = OK
Read_File.FILE_CONTENT = REQ.responseText
Else
Read_File.FILE_CONTENT = ""
Read_File.ERROR_MESSAGE = " XMLHttpRequest Error = " & REQ.status & vbCrLf & REQ.statusText
End If
Set REQ = Nothing
Exit Function
Error_Handler:
Read_File.FILE_CONTENT = ""
Read_File.ERROR_MESSAGE = "Access Error=" & Err.Number & vbCrLf & Err.Description
Set REQ = Nothing
End Function



Private Sub Command1_Click()
MsgBox (Read_File("http://"))
Text3.Value = Read_File("http://")
End Sub