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

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

قام بنشر

سلام عليكم:

أخوتي من يمكن أن يشرح لي هذه الكلمات في الكود (الشرط و جواب الشرط ) لكي أتمكن من التعديل فيه

طبعا الكود مأخوذ من المنتدى

Sub open_folder()

Dim FolderName As String

FolderName = InputBox("", "", "E:\Documents and Settings\VIP\My Documents")

If Dir(FolderName, vbDirectory) = vbNullString Then

MsgBox " " & FolderName & " : "

Else

Shell "explorer.exe " & FolderName, vbNormalFocus

End If

End Sub

الكلمات هي vbdirectory- vbnullstring- vbnormalfocus

لكم الشكر

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information