معرفة مسار ملف معين

لأستخراج المسار كامل مع أسم الملف

Public Function GetFileNameFromPath(strPath As String) As String
  Dim intX As Integer
  Dim intPlace As Integer
  Dim intLastPlace As Integer
    
  intLastPlace = 0

  For intX = 1 To Len(strPath)
    intPlace = InStr(intLastPlace + 1, strPath, "\")
    
    If intPlace = 0 Then
      GetFileNameFromPath = Right(strPath, Len(strPath) - intLastPlace)
      Exit Function
    Else
      intLastPlace = intPlace
    End If
  Next intX
End Function

للتأكد من مجلد معيين

Private Sub Form_Load()
Const ATTR_DIRECTORY = 16
If Dir$("c:\windows", ATTR_DIRECTORY) <> "" Then
MsgBox ("The directry exist")
Else
MsgBox ("The directry does not exist")
End If
End Sub

وتستطيع أن تبدل أسم windows بأي أسم مجلد آخر تريد أن تتأكد منه

وللتحقق من أسم ملف معين أكتب الشفرة التالية 
Dim X$

X$ = Dir$("C:\windows\calc.exe")
If X$ = "" Then
MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist"
    Else
    MsgBox "It does exist!", vbExclamation, "Does Exist"
End If

تحياتي B)

مشكور

بارك الله فيك

.. بس في عندي مشكلة

مثلا

لو بدي اعرف مسار الStartup الموجود على هذا الحساب .. كيف ممكن اعرف

؟؟؟؟؟؟؟؟؟؟

ممكن جدا :

Get User.rar

رائع أخي العقدة

بارك الله فيك

وجزاك الله كل الخير

اشتم رائحة برنامج اختراق في الموضوع ،، بمجرد انك طلبت معرفة StartUp :) .

ربما ضني ليس في محله