چک کردن وجود یک فایل بر روی هارد

[microprolog-p96s]

سلام
می خواستم که یک ماژول یا یک کد چک کند که یک فایل بر روی هارد وجود دارد یا نه . اگه که هست ادامه کار رو انجام بده ، اگه که نه error بده .

از دوستان تشکر میکنم اگه بتونند کمک کنند .

[id1385]

با سلام
قبلاً یه پروژه با vb داشتم تو اون نیاز بود فایل تنظیمات رو چک کنم این کا رو با روش زیر انجام داده بودم می تونید از روش زیر استفاده کنید.


'Chek: file .INI exist or no ?
Public Sub inicheking()
Dim X$
'the dir & file to chek
X$ = Dir$(App.Path & "\config\Configuration.ini")
' if file not exist!
If X$ = "" Then
'save a file as defult
Dim strA As String
strA = LoadResString(101)
SaveFile App.Path & "\config\Configuration.ini", strA
MsgBox "ÈÚáÊ ÌÇÈÌÇíí ÝÇíá ÊäÙíãÇÊ ÇÕáí¡ ÝÇíá íÔ ÝÑÖ ÌÇíÒíä ÔÏ" & vbCrLf & App.Path & "\config\Configuration.ini", vbInformation, "ÊÛííÑÇÊ"
Else
'if file exist
MsgBox " ÝÇíá ãæÌæÏ ÇÓÊ"
Exit Sub
End If
End Sub


فایل ویژوال رو براتون با فایل ماژول رو براتون آپ می کنم می تونید یه ک تغییرات بدید توش و به اون چی که می خواهید برسید.



موفق باشید

[microprolog-p96s]

سلام
ممنون از جوابی که دادید . اما مشکل من رو حل نکرد . اگه که امکانش هست به صورت فایل اکسس یه نمونه بگذارید ممنون میشم .

[takkhal]

باسلام
فقط کافیه یه دکمه درست کنی و کد زیر رو در قسمت کدنویسی اضافه کن
اگه بازم مشکلی بود بگو


If Dir("c:\copy.txt") <> "" Then
MsgBox "فایل یافت شد"
Else: MsgBox "فایل یافت می نشود!"
End If

[microprolog-p96s]

سلام آقا یا خانم تک خال
دست تون درد نکنه . عالی بود .

اگه براتون امکانش هست من در 3 تا تاپیک دیگه هم 3 تا سوال گذاشتم . اگه که براتون امکانش هست و می تونید جواب اونها رو هم بهم بدین .


آدرس تایپک ها
http://barnamenevis.org/forum/showthread.php?t=233339
http://barnamenevis.org/forum/showthread.php?t=233338
http://barnamenevis.org/forum/showthread.php?t=233924

مرسی

[takkhal]

بهشون نگاه بنداز ببین بدردت میخوره!