السلام عليكم ورحمة الله وبركاته ،،،
ما الكود الذي يحذف اسم الملف من المسار كامل ؟
مثال :-
C:\Documents and Settings\NNN.MDB
الى (كود )
C:\Documents and Settings
شكرا ودمتم سالمين
حذف اسم الملف من
تفضل هذا الكود وإن شاء الله راح تحصل احسن منه ....
Sub ShowFolderList()
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.Getfile(filespec)
Me.Text1 = Mid(f, 1, (Len(f) - Len(f.Name)))
End Sub
طارق العيد
طارق العيد :D