تغيير اسم ملف

[أواب]

السلام عليكم

الأخوة الكرام

عندي قاعدة بيانات في مجلد

ومعها في نفس المجلد  ملفان 

أحدهما باسم  k.mdb وأريد تغيير اسمه إلى  kk.mdb

والآخر باسم 1.mdb   وأريد حذفه من المجلد

لعل طلبي يكون واضحا (كود لتغير اسم وكود لحذف)

[jjafferr]

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

.

جعفر

[أواب]

حبيبي يا أستاذ جعفر

مشتاقين والله للمساتك

شكراً جزيلاً لك

لقد جربت الكود  ونفذ بنجاح

لكن

ماذا لو أردت أن أضع الكود في  موديل  Autoexec

[jjafferr]

 

طريقة العمل :

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 ، 

فإذا اردت ان تشير الى اسم حقل في نموذج ، فيجب عليك فتح هذا النموذج من هذا الماكرو ، وامر فتح النموذج يجب ان يكون قبل تشغيل الدوال اعلاه (طبعا اذا اردت ان تأخذ قيمة من النموذج، اما اذا فتح النموذج لا علاقة له بالدوال اعلاه ، فتقدر تفتح النموذج بين اي من اوامر الماكرو) 🙂

 

انا من الناس اللي اعتمد على هذا الماكرو في جميع برامجي 🙂

 

جعفر

[أواب]

شكراً جزيلاً أخي جعفر

جعله الله في ميزان حسناتك