الأخوة الكرام: السلام عليكم ورحمة الله
أريد إعادة تسمية ملف وإنشاء اختصار له على سطح المكتب..بالكود فهل يمكن ذلك؟
اعادة تسمية وانشاء اختصار
مغلقمُجاب
اخي الفاضل
يمكن عمل ذلك بالكود
ولكن اين موقع الملف بالضبط وما هو نوع هذا الملف هل هو قاعدة بيانات ام غير ذلك من الملفات !!!!
هل هو في مجلد ام انه هو قاعدة البيانات الحالية المفتوحه !!!
يجب عليك اعطاء تصور كامل عن الملف المطلوب ليتم كتابة الكود اللازم له .
بالتوفيق
السلام عليكم ورحمة الله وبركاته
وجدت هذا الأمر علي النت جوجل فحبيت اشارك ربما يحقق المطلوب
Private Sub Command1_Click() 'Name "C:\OldFileName" As "C:\NewFileName" Name "d:\abc.mdb" As "d:\zzzzzzzzzzzzzzzzzzzzzzzzzz.mdb" End Sub
غير اسم الملف ومساره حسب احتياجك
عزوز عبداللاه
مدرب ومطور قواعد بيانات أكسس
الاهتمامات
VBA,VB.NET,ASP.NET,SQL SERVER, ORACLE
azouzeg@hotmail.com
01004147149
copy 2.RARسيدتي الفاضلة:
الملف هو (قاعدة2) في نفس مجلد القاعدة الحالية(قاعدة) ومن خلالها
تم تعديل هذه المشاركة بواسطة أواب في 25 فبراير 2013 في 18:34
تفضل اخي الكريم
انشاء اختصار على سطح المكتب لقاعدة البيانات بعد تغيير اسمها الجديد
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")
Dim MyShortcut As Object
Dim DesktopPath As String
Const conSHORTCUT_NAME As String = "Display Name of Shortcut"
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & conSHORTCUT_NAME & ".lnk")
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path & "\" & MyDatabase.mdb)
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path)
MyShortcut.WindowStyle = 4
MyShortcut.Save
Set MyShortcut = Nothing
Set WSHShell = Nothingضع هذا الكود مباشرة بعد تغيير اسم القاعدة الجديده
غير اسم قاعدة البيانات MyDatabase.mdb في الكود الى القاعدة الخاصة بك
بالتوفيق
هذا الموضوع مغلق.