کنترل وجود یک فایل بروی هارد دیسک قبل از اجرا

[narpco]

سلام بر دوستان و اساتید محترم

یک فایل پی دی اف بروی هارد داریم در یک مسیر ثابت ......

طی این دستور از داخل اکسس میگیم این فایل رو اجراکن

Set shell = CreateObject("WScript.Shell")


shell.Run "E:\Mohasebmirza\incom\FORMS\BAZRSI.pdf"
تا اینجا مشکلی نیست

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

مسیر ثابت فایل : E:\Mohasebmirza\incom\FORMS\BAZRSI.pdf
نام فایل :BAZRSI.pdf



با سپاس از همراهی شما ....

[eb_1345]

سلام بر دوستان و اساتید محترم

یک فایل پی دی اف بروی هارد داریم در یک مسیر ثابت ......

طی این دستور از داخل اکسس میگیم این فایل رو اجراکن

Set shell = CreateObject("WScript.Shell")


shell.Run "E:\Mohasebmirza\incom\FORMS\BAZRSI.pdf"
تا اینجا مشکلی نیست

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

مسیر ثابت فایل : E:\Mohasebmirza\incom\FORMS\BAZRSI.pdf
نام فایل :BAZRSI.pdf



با سپاس از همراهی شما ....


سلام
کدهای زیر را بررسی کن !


Dim myPath As String
Dim shell As Object
myPath = "E:\Mohasebmirza\incom\FORMS\BAZRSI.pdf"
If Len(Dir(myPath, vbDirectory)) > 0 Then
Set shell = CreateObject("WScript.Shell")
shell.Run myPath
End If

[narpco]

سلام روز بخیر و مانند همیشه ...عالی ...سپاس از مهر بی دریغ شما ...ارادتمندیم برادر.