در صورت نبود يك فايل وارد برنامه نشود

[MOAHHAMDREZA RAMIN]

ميخواهيم كاري كنيم كه برنامه اكسس در صورت نبودن يك فايل در يك مسير وارد برنامه نشود
مثلا در درايو c فايلي به نام ok.txt را جستجو كند
اگر اين فايل موجود بود وارد برنامه شود
در غير اينصورت وارد نشود
يا مثلا فايلي كه حروف آن ديده نشود!!؟؟؟
از كمك شما قبلا متشكرم:متفکر:

[amirzazadeh]

میخواهیم کاری کنیم که برنامه اکسس در صورت نبودن یک فایل در یک مسیر وارد برنامه نشود
مثلا در درایو c فایلی به نام ok.txt را جستجو کند
اگر این فایل موجود بود وارد برنامه شود
در غیر اینصورت وارد نشود
یا مثلا فایلی که حروف آن دیده نشود!!؟؟؟
از کمک شما قبلا متشکرم:متفکر:
سلام
یک برنامه ساده براتون آپلود کردم با این توضیح که اگر فایلی به نام x.txt در درایو c شما موجود باشه برنامه کار میکنه در غیر اینصورت با دادن پیام از ادامه فعالیت جلوگیری میکنه.
........................
موفق باشید

[MOAHHAMDREZA RAMIN]

آقاي amirzazadeh (http://barnamenevis.org/forum/member.php?u=47888) متشكر از شما
متاسفانه با اينكه فايل را درست كردم باز ايراد ميگيرد و از برنامه خارج ميشود
در ضمن بنده به اكسس 2007 كار ميكنم
x.txt اين را شناسايي نمي كند

[amirzazadeh]

آقای amirzazadeh (http://barnamenevis.org/forum/member.php?u=47888) متشکر از شما
متاسفانه با اینکه فایل را درست کردم باز ایراد میگیرد و از برنامه خارج میشود
در ضمن بنده به اکسس 2007 کار میکنم
x.txt این را شناسایی نمی کند


سلام
در این مورد به دو تا نکته توجه کنید اول اینکه فایل شما باید در داخل روت اصلی مثل:C باشه و دوم اینکه فایل x.txt توسط notepad ایجاد کنید (متن و سایز فایل مهم نیست).در ضمن با 2007 هم چك كردم مشكلي نداره.
.........................
موفق باشید

[MOAHHAMDREZA RAMIN]

يك نمونه از تصوير كامپيوتر برايتان ارسال كردم
شايد مشكل در وي بي باشه؟
يا مشكل عجيب كه متوجه نيستم
فقط ميگويد فايل پيدا نشد

[amirzazadeh]

یک نمونه از تصویر کامپیوتر برایتان ارسال کردم
شاید مشکل در وی بی باشه؟
یا مشکل عجیب که متوجه نیستم
فقط میگوید فایل پیدا نشد
برنامه رو با اكسس 2003 كنترل بكنيد اگر مشكلي نبود رفرنس هاتون در اكسس 2007 چك بكنيد.تصوير ضميمه رو ببنيد:
......................
موفق باشيد

[alirezabahrami]

میخواهیم کاری کنیم که برنامه اکسس در صورت نبودن یک فایل در یک مسیر وارد برنامه نشود
مثلا در درایو c فایلی به نام ok.txt را جستجو کند
اگر این فایل موجود بود وارد برنامه شود
در غیر اینصورت وارد نشود
یا مثلا فایلی که حروف آن دیده نشود!!؟؟؟
از کمک شما قبلا متشکرم:متفکر:

MOAHHAMDREZA RAMIN سلام!
1- در قسمت ماژول عمومی فرم کد زیر وارد کن :




Private Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) AsLong
Function LocateFile(ByVal strFilename As String, ByVal strRootPathAs String) As String
Dim strBuffer As String
Dim lngResult AsLong
Const MAX_PATH = 260
LocateFile = ""
strBuffer = String$(MAX_PATH, 0)
lngResult = SearchTreeForFile(strRootPath, strFilename, strBuffer)
If lngResult <> 0 Then
IfInStr(strBuffer, vbNullChar) > 0 Then
LocateFile = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End If
EndIf
End Function


2- در رویداد load فرم کد زیر را وارد کن!







Private Sub Form_Load()
Dim str As str
Dim sPath AsString
sPath = LocateFile("ok.txt", "f:\")
If sPath = "" Then
str = MsgBox("!íÇÝÊ äÔÏ" & "" & "ok.txt" & "" & "ÝÇíá", vbOKOnly + vbInformation, "!ÊæÌå")
docmd.Quit
End If
End Sub





در کد بالا فرض شده که فایل ok.txt شما در درایو f باشد.
موفق باشید

[MOAHHAMDREZA RAMIN]

متشكر از اينكه پيگير هستيد
در ضمن موارد را چك كردم مشكلي نبود
شما گفتيد در قسمت عمومي يعني منظورت كجاست؟
باز هم متشكرم
در ضمن يك سوال كوچك ديگر
ميخواستم اطلاعات را در داخل سايت بگذارم
براي هر شخص جدا جدا و با رمز جدا
شما كدي يا كتابي يا سايت سازي كه بتواند براي اشخاصي كه من ميخواهم براي آنها اطلاعات بگذارم فضاي اختصاصي درست كند ، معرفي كنيد.
هرگونه راهنمايي كه باشد استفاده ميكنم
باز متشكرم

[amirzazadeh]

میخواهیم کاری کنیم که برنامه اکسس در صورت نبودن یک فایل در یک مسیر وارد برنامه نشود
مثلا در درایو c فایلی به نام ok.txt را جستجو کند
اگر این فایل موجود بود وارد برنامه شود
در غیر اینصورت وارد نشود
یا مثلا فایلی که حروف آن دیده نشود!!؟؟؟
از کمک شما قبلا متشکرم:متفکر:
سلام
مسير فايل رو به درايو c عوض كردم .ضميمه قبلي رو مجددا دانلود كنيد.
.......................
موفق باشيد

[abas1388]

سلام
مسیر فایل رو به درایو c عوض کردم .ضمیمه قبلی رو مجددا دانلود کنید.
.......................
موفق باشید
جناب amirzazadeh سلام
اگر مسير و شاخه اين فايل مشخص نباشد يا به عبارتي درايو و نام فولدري كه اين فايل در آن قرار دارد مشخص نباشد و بخواهيم از وجود يا عدم وجود يك فايل با نام مشخص اطلاع پيدا كنيم ، چه راهكاري وجود دارد؟
با تشكر

[amirzazadeh]

جناب amirzazadeh سلام
اگر مسیر و شاخه این فایل مشخص نباشد یا به عبارتی درایو و نام فولدری که این فایل در آن قرار دارد مشخص نباشد و بخواهیم از وجود یا عدم وجود یک فایل با نام مشخص اطلاع پیدا کنیم ، چه راهکاری وجود دارد؟
با تشکر
سلام
لطفا فايل ضميمه رو ببينيد .(توجه:رفرنس microsoft office 11 object liberary بايد تيك خورده باشد).
.........................
موفق باشيد