اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم و رحمة الله و بركاته ...

اريد تعديل الكود في المرفق ... بحيث اذا كانت الصورة موجودة لا يتم النسخ ...

يرجى وضع المجلد ( البرنامج ) على القرص D.rar

قام بنشر

الحمد لله وجدت الحل ...

Dim xxzz
Set xxzz = CreateObject("Scripting.FileSystemObject")
If xxzz.FileExists(opttt) = False Then
MsgBox ("nooooooooo")
Else
MsgBox ("yeeeeeeees")
End If

حيث ان opttt هو مربع نص به مسار الملف ...

""" انا السائل و انا المجيب """ :biggrin:

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information