تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] vb6.0 App_path and filename
#1
السلام عليكم ورحمة الله وبركاته 
للتذكير فقط 
دالتين بسيطتين لمعرفة مسار مجلد من مسار ملف وكذلك معرفة اسم الملف:
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 
فقط للتذكير والتدوين.
تحيااتي
الرد
تم الشكر بواسطة: sendbad100 , مصمم هاوي
#2
تسلم يدك 

انت رمز العطاء
حبيبي في الله سعود  Heart Heart Heart
الرد
تم الشكر بواسطة: سعود , مصمم هاوي
#3
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد
تم الشكر بواسطة: sendbad100 , سعود


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم