استخراج اسماء المجلدات من المسار

[kamal.m.amin]

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

لدي نموذج به ثلاث حقول  الجقل الاول اسمه dn والحقل الثاني sn والحقل الثالث path يحتوي الحقل الثالت علي مسار مجلدات

اريد ان اجعل في الحقل dn اسم اخر مجلد في المسار والحقل sn اسم المجلد قبل الاخير  

 

 

Database1_2.accdb

[Shivan Rekany]

1 ساعه مضت, kamal.m.amin said:

لدي نموذج به ثلاث حقول  الجقل الاول اسمه dn والحقل الثاني sn والحقل الثالث path يحتوي الحقل الثالت علي مسار مجلدات

اريد ان اجعل في الحقل dn اسم اخر مجلد في المسار والحقل sn اسم المجلد قبل الاخير  

اتفضل اليك هذا

Private Sub cmdBrowse_Click()
Dim spl() As String
Dim tmp As String
      tmp = GetBrowseFolder("اختيار المجلد المطلوب :")
         If Len(tmp) > 0 Then
            Source = tmp
           Me.path.SetFocus
            path.Text = Source
            spl = Split(Me.path, "\")
            Me.dn = spl(UBound(spl))
            Me.sn = spl(UBound(spl) - 1)
         End If
End Sub

 

Database1_2.accdb

[kamal.m.amin]

23 دقائق مضت, Shivan Rekany said:

اتفضل اليك هذا

Private Sub cmdBrowse_Click()
Dim spl() As String
Dim tmp As String
      tmp = GetBrowseFolder("اختيار المجلد المطلوب :")
         If Len(tmp) > 0 Then
            Source = tmp
           Me.path.SetFocus
            path.Text = Source
            spl = Split(Me.path, "\")
            Me.dn = spl(UBound(spl))
            Me.sn = spl(UBound(spl) - 1)
         End If
End Sub

 

Database1_2.accdb

• كلمات الثناء لا توفيك حقك، شكراً لك على عطائك