منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : vb6.0 App_path and filename
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته 
للتذكير فقط 
دالتين بسيطتين لمعرفة مسار مجلد من مسار ملف وكذلك معرفة اسم الملف:
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 
فقط للتذكير والتدوين.
تحيااتي

ااااااااخ بس الامر ابسط من كذا بكثييير بس بشوية تفكير .
تسلم يدك 

انت رمز العطاء
حبيبي في الله سعود  Heart Heart Heart