تغيير اسم الملف عبر كود يأخذ الإسم من حقل م

اخي حسان السلام عليكم ،،،،،

هذا هو كود تغيير اسم ملف من اكسس

	Name "C:\file1.txt" As "C:\file2.txt"

تضيف له ما تريد من تعديل

مثلا يكون اسم الملف يساةي حقل في جدول و هناك امثله كثيره لربط اسم جدول بمتغير

أستاذي العزيز human73

الحقيقة لا أعرف كيف أشكرك دائماً حفظك الله سباق للخير والمساعدة الله يزيدك من فضله .

اطلعت على الكود ولكن أرجو إن أرفقت لي مثال على ذلك بحيث يكون ربط جدول بمتغير أكن لك من الداعين والشاكرين .

أخوك الصغير أبوأحمد

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

أستاذي العزيز human73

إن الكود المرفق أدناه يقوم بإستعراض المجلدات فهل يمكن الإضافة على نفس الكود بإستعراض الملفات التي بداخل المجلدات ومن ثم التعديل .

Text1 = GetFolder(Hwnd, "إختر المجلد أو الملف المطلوب تغييره")

Label2.Caption = FolM(Me.Text1)

والكود الموجود على زر امر التغيير هو فأرجو التعديل عليه اذا وجد له تعديل وفقك الله .

OldN = Me.Text1

NewN = FolP(Me.Text1) + Me.text3 + " " + Me.text3

Name OldN As NewN

Text1 = NewN

Label2.Caption = Me.Text2

Me.Text2 = ""

أرجو مساعدتي وفقك الله .

استاذي الفاضل حسان السلام عليكم

بالضبط هذا هو الكود و اتمنى لك التوفيق فيه

أستاذي human73

تحياتي

أرجو التعديل على كود الـ Hwnd والذي يقوم بإٍستعراض المجلدات حيث ان الكود الحالي يستعرض المجلدات واريده ان يستعرض الملفات كذلك ولاحظ ان الكود مكتوب فيه GetFolder وأريده فولدر وفايل .

جزاك الله خيراً منتظر ردكم وفقكم الله .

الفاضل حسان هذا كود ياتيك بايم ملف من بات

يعني مثلا الملف هو c:\xxxx\x1.mdb

سيعطيك x1.mdb

Public Function FileNameFromPath(strFullPath As String) As String
	Dim I As Integer

	For I = Len(strFullPath) To 1 Step -1
		If Mid(strFullPath, I, 1) = "\" Then
			FileNameFromPath = Right(strFullPath, Len(strFullPath) - I)
			Exit For
		End If
	Next
End Function

أستاذي الفاضل human73

الله يجزيك بالخير على جهدك ومساعدتك سوف أجربه وفقك الله .