چک کردن وجود فایل در سیستم

[mostafa612003]

سلام
اگر بخواهیم که ببینیم که یک فایلی درون سیستم می باشد چه باید بکنیم؟
واینکه من در برنامه ام چند فرم دارم فرم اول که ظاهر می شود وقتی که می خواهم وارد فرم بعدی شوم یک مدت زمانی طول می کشد ولی از فرم دوم به سوم چنین مشکلی را ندارم

متشکرم

[hadi2345]

با سلام .
من از کد زیر استفاده میکنم :


If FileExists("c:\dbase.mdb") = 0 Then
Call Create_Folder
End If
Public Function FileExists(strPath As String) As Integer

FileExists = Not (Dir(strPath) = "")

End Function
موفق باشید .

[niloufar]

سلام
در مورد سوال اول:

Public Function FileExists(strPath As String) As Integer
On Error GoTo ErrorHandler
FileExists = Not (Dir(strPath) = "")
Exit Function
ErrorHandler:
FileExists = 0
End Function

در مورد سوال دوم:
مطمئنا ربطی به اولی و دومی و سومی نداره، شاید در رویداد Load یکی از فرمها، دستورات وقتگیری گذاشته ای

[mostafa612003]

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

[hadi2345]

با مقایسه اون دو فرم خودتون خیلی راحت میتونید بفهمید که مشکل از کجاست . ولی شاید تو فرم دومتون
با یک database سنگین ارتباط پیدا میکنید یا اینکه هنگام load شدن فرم یک query از database میگیرین و یا
با یک فایل خارجی سر و کار دارین .... به هر حال مشکل از خیلی جاها میتونه باشه .
میشه بفرمایین تو فرمهاتون چه چیزهایی گذاشتین؟