كل عام وانتم بخير .....وسؤال يبحث عن اجابة

مرحبا بعودتك أخي أبو تركي

وشكرا على الصور جميلة ومعبرة

بالنسبة لطلبك

طلبك غريب شوي لم أفهم بالضبط

على ما فهمت أنك تريد أن تقراء من ملف نص موجود على URL

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

ممكن تستخدم ADODB.Stream

 set   ObjStm=server.createObject("adodb.stream")
ObjStm.Open "URL=http://www.arabteam.com/TxtFile.txt",adModeRead
response.write objstm.ReadText

أرجو أن يكون هذا المطلوب

شكرا اخي عبد الرحمن

الحقيقة كما ذكرت سابقا واسف ان لم تكن واضحه اني اريد القراءة من عنوان فيزيائي لاني لااستطيع وضع مشاركة انترنت على الملف....فانا مثلا اريد القراءة من ملف بهذه الطريقة

ScriptObject.OpenTextFile("filesmyfile.txt", 8,true)

ولكن ذلك يتطلب اعدادات كما هو موضح بالرابط لان السيرفر يعمل بويندوز NT4 وانا كما اسلفت غير مخول بعمل اي شئ عليه فقط القراءة من مجلد مشاركه........فمالحل برايك.......

شاكرا لك سرعة تجاوبك

عوداً حميدا ابو تركي :)

بالنسبة لموضوعك فهو بصراحة غير واضح نوعا ما بالنسبة لي ، ولكن اذا علمت بالمسار فلا مشكلة .

Set myTextStream=myFileSystem.OpentextFile
("c:yourpathtextfile.txt",1)

Response.Write(myTextStream.ReadAll)

اذا لم يكن هو أرجو التوضيح أكثر :)

ممكن تجرب تكتبه بهذا الشكل

ScriptObject.OpenTextFile("filesmyfile.txt")

هكذا سوف يأخذ القيم الإفتراضية وهي

1=ForReading أي أن الفتح للقرائة وليس للكتابة

false=إذا لم يكن موجود لا تكونه

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

هذا شكل معطيات المعادلة

OpenTextFile(filename,[iomode],[create],[format])

شكرا لكم جميعا

بالنسبة للاخ احمد

الموضوع ومافيه انني اريد ان اقرا من مجلد مشاركه وليس من نفس الجهاز

فالكودالذي تفضلت بكتابته يقرأ من نفس الجهاز الذي فيه الكود وهذا لايمثل اي اشكال .......

المشكلة تكمن انني اريد ان اقرا من ملف موجود على جهازك انت والكود موجود على جهازي وكلانا موجود في شبكه داخلية واحده "LAN"

نفرض ان عنوان الملف في جهازك سيكون بهذه الطريقة

"ahmadjavryshredfileahmad.txt"

وتلاحظ في بداية الاسم التي تعني انه من "Remote machine" وليس من نفس الجهاز........

لكن القراءة من ملفات موجوده على Remote machines تتطلب اعدادات خاصه بالامن في IIS4 و IIS5 وهو اضافة Anonymous Access او مستخدم مجهول يكون بهذا الاسم "اسم الجهاز_ IUSR"

وحيث انني خير مخول بعمل هذه الاعدادات او طلبها قررت ابحث عن طريقة اخرى اتمنى ان اجدها عندكم .....

------------------------------------------------------------------

وبالنسبة للاخ عبد الرحمن

عملت الكود مرتين مستخدما كائنين مختلفين فالاول بهذا الشكل

Set ObjStm = CreateObject("Scripting.FileSystemObject")



Set myTextStream= ObjStm.OpentextFile("Mac301560ct12302001.txt")

والنتيجة

Microsoft VBScript runtime error '800a0046' 



Permission denied

:confused:

التي نتجت عن عدم وجود تصريح للمستخدم الذي ذكرت سابقا

والثاني هو ماطلبت ان والاخ احمد والنتيجه هي

Microsoft VBScript runtime error '800a01a8' 



Object required: ''

:confused:

فما رايكم(f)

أولا هل لك الحق في القرائة من مجلد المشاركة هذا

يعني عندما تطبع في المستكشف

computer namesharing folder

هل تستطيع قراءة محتويات المجلد

إذا كان لك الحق في القرائة فأعتقد أن الطريقة صحيحة ...

وسيكون هناك خلل ما في الموضوع ...

السلام عليكم

اشكرك اخوي عبد الرحمن لتجاوبك معي....واسف على تاخري بالرد بسبب انشغالي

الحققيقة نعم املك انا بحساب الشبكة الذي املكه الدخول للملف لكن عندما تقرا الرابط الذي ذكرت تجد ان المشكلة في IIS لانه لابد من تعريف مستخدم ضيف مخول له قراءة الملفات من خلال ال IIS فقط .....

وعلمت مؤخرا ان الجهاز الذي يحوي الملف المطلوب لايوجد به IIS خير شر.....

فلقد حاولت بشتى الطرق لكن لم افلح ولم يبق لدي حل الىالبحث او تصميم برنامج يقوم بقراءة الملف المطلوب كل خمس دقائق مثلا وينسخه على جهازي....فمارايك هل تؤيدني؟......وهل تعرف برنامج يقوم بهذا العمل ؟ ام اصممه بالدلفي بمساعدة الشباب في المنتدى؟

ولك جزيل الشكر

حسب معلوماتي يجب ان تقوم بالتعديل في ال IIS ليصل الى ملفات خارج الجهاز نفسه ، كما يجب ان توفر الصلاحيات على الجهاز الزي وضعت عليه الملفات لل IIS و هذا يحدث اولا بتعديل بعَض ال Settings في ال IIS و من ثم لو اردت وضع صلاحيات وصول للملف فذلك يمكن ان يتم من الجهاز الذي عليه الملف نفسه

اظن لو حتى صنعت اضافة الى ال IIS على شكل Dll ليقوم بقرائة الملف و ركبتها فيجب ان تتوفر لديك صلاحيات لتشغيل ملفات ال DLL في ال IIS اضافة الى انه قد يمنعك ال IIS مرة اخرى للخروج خارج القرص الصلب بدون تعديل الاعدادات ، مشكلة اليس كذلك :(

ذلك لان ملف ال DLL سيعمل باستخدام صلاحيات ال User Name الذي يصنعه ال IIS بين ال User Names الخاصة ب Windows NT or 2000

السبب في منع ال IIS من الوصول المباشر الى الملفات في الاجهزة الاخرى بهذه الطريقة هو لسد الثغرات التي قد تستغل من بعض المبرمجين لنقل الملفات من و الى ال IIS

اعتقد الحل الوحيد ان تعدل الخصائص

شكرا خضر

لكن كما اسلفت الجهاز الذي عليه الملف لايوجد به IIS ولست مخولا باضافته