نوشته شده توسط
narpco
سلام بر دوستان و اساتید محترم
یک فایل پی دی اف بروی هارد داریم در یک مسیر ثابت ......
طی این دستور از داخل اکسس میگیم این فایل رو اجراکن
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