اينم يه برنامه جالب ديگه البته اين برنامه روخودم ننوشتم،اينو از توي يه سايت

خارجي دانلود كردم . توي اين برنامه شما آدرس يه فايل رو بهش ميدين ومشخصاتشو

مي گيرين.اگه بتونيدمفهوم اين كدهارويادبگيريدخيلي جاهابدردتون میخورن.

' Written exclusively for VB Center by Marco Cordero.
' Portions of this code sample were written by Randy Birch.

Private Sub Command1_Click()
 
  Dim r As Long
  Dim FileName As String
  
  ' Get the file name and path from txtFileName
  FileName = (txtFileName)
  
  ' Show the properties dialog, passing the filename
  ' and the owner of the dialog
  r = ShowProperties(FileName, Me.hwnd)
    
  ' Display an error if the properties dialog could
  ' not be displayed
  If r <= 32 Then MsgBox "Error"
 
End Sub