تقييم الموضوع :
  • 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 , مصمم هاوي


الردود في هذا الموضوع
vb6.0 App_path and filename - بواسطة سعود - 18-07-19, 12:04 AM
RE: vb6.0 App_path and filename - بواسطة sendbad100 - 18-07-19, 01:43 AM
RE: vb6.0 App_path and filename - بواسطة مصمم هاوي - 18-07-19, 12:16 PM

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


يقوم بقرائة الموضوع: