سلام به همه برنامه نویسای عزیز .
بازم اومدم با چندتا کد دیگه تا بتونم کمکی هرچند ناچیز کرده باشم .
خب بریم سراغ کدها :
1- اولی واسه بدست آوردن درایو ویندوز هستش :


   Public Function Windows_Drive()

          MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0), MsgBoxStyle.Information, "Windows Drive")  
End Function
2- کد دوم واسه بدست آوردن مسیر فولدر Application Data : 


   Public Function AppData_Path()

          MsgBox(My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "APPDATA", 0), MsgBoxStyle.Information, "Application Data Folder")

  End Function
3- کد شماره 3 واستون مسیر فولدر یوزر برمیگردونه : 


   Public Function UserFolder_Path()

  Dim win_drv As String

  win_drv = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEDRIVE", 0)

  MsgBox(win_drv + My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Volatile Environment", "HOMEPATH", 0), MsgBoxStyle.Information, "User Folder")

  End Function
امیدوارم استفاده کنید ...........