+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : [كود] vb6.0 App_path and filename (/showthread.php?tid=30352)
vb6.0 App_path and filename - سعود - 18-07-19
السلام عليكم ورحمة الله وبركاته
للتذكير فقط
دالتين بسيطتين لمعرفة مسار مجلد من مسار ملف وكذلك معرفة اسم الملف:
PHP كود :
Private Function App_path(fpath As String) As String
Dim pn As Integer
pn = InStrRev(fpath, "\")
If pn > 0 Then
App_path = Left$(fpath, pn)
End If
End Function
Private Function GFilename(fpath As String) As String
Dim pn As Integer
pn = InStrRev(fpath, "\")
If pn > 0 Then
GFilename = Replace(fpath, Left$(fpath, pn), "")
End If
End Function
تحيااتي
ااااااااخ بس الامر ابسط من كذا بكثييير بس بشوية تفكير .
RE: vb6.0 App_path and filename - sendbad100 - 18-07-19
تسلم يدك
انت رمز العطاء
حبيبي في الله سعود 
RE: vb6.0 App_path and filename - مصمم هاوي - 18-07-19
