أواب قام بنشر نوفمبر 13, 2022 مشاركة قام بنشر نوفمبر 13, 2022 السلام عليكم الأخوة الكرام عندي قاعدة بيانات في مجلد ومعها في نفس المجلد ملفان أحدهما باسم k.mdb وأريد تغيير اسمه إلى kk.mdb والآخر باسم 1.mdb وأريد حذفه من المجلد لعل طلبي يكون واضحا (كود لتغير اسم وكود لحذف) رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 13, 2022 مشاركة قام بنشر نوفمبر 13, 2022 9 دقائق مضت, أواب said: 1. كود لتغير اسم 2. وكود لحذف وعليكم السلام 🙂 انا استعمل هذه الطرق: 1. Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. 2. Kill "D:\YOURDIR\NEWFILE.mdb" . الطريقة الثانية 1. Dim objFso as object Set objFso= CreateObject("Scripting.FileSystemObject") objFso.MoveFile "D:\testvbs\autorun.exe", "D:\testvbs\autorun.txt" 2. Dim FSO as object Dim myFile As String Set FSO = CreateObject("Scripting.FileSystemObject") myFile = "C:\Users\Dell\Desktop\Sample Data\file1.xlsx" FSO.DeleteFile myFile, True . جعفر 1 رابط هذا التعليق شارك More sharing options...
أواب قام بنشر نوفمبر 13, 2022 الكاتب مشاركة قام بنشر نوفمبر 13, 2022 حبيبي يا أستاذ جعفر مشتاقين والله للمساتك شكراً جزيلاً لك لقد جربت الكود ونفذ بنجاح لكن ماذا لو أردت أن أضع الكود في موديل Autoexec رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر نوفمبر 13, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 13, 2022 طريقة العمل : 1. اعمل الدوال التالية في وحدة نمطية باسم (مثلا) mod_Rename_and_Delete function Rename_a_File() Dim OldName, NewName OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. end function function Delete_a_File() Kill "D:\YOURDIR\NEWFILE.mdb" end function . 2. في الماكرو AutoExec ، لتنفيذ الدالتين اعلاه: . ولا تنسى ، ان الاكسس اول ما يقول بسم الله ، وقبل ان يفتح اي كائن آخر ، فهو ينفذ اوامر الماكرو AutoExec ، فإذا اردت ان تشير الى اسم حقل في نموذج ، فيجب عليك فتح هذا النموذج من هذا الماكرو ، وامر فتح النموذج يجب ان يكون قبل تشغيل الدوال اعلاه (طبعا اذا اردت ان تأخذ قيمة من النموذج، اما اذا فتح النموذج لا علاقة له بالدوال اعلاه ، فتقدر تفتح النموذج بين اي من اوامر الماكرو) 🙂 انا من الناس اللي اعتمد على هذا الماكرو في جميع برامجي 🙂 جعفر رابط هذا التعليق شارك More sharing options...
أواب قام بنشر نوفمبر 13, 2022 الكاتب مشاركة قام بنشر نوفمبر 13, 2022 شكراً جزيلاً أخي جعفر جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان