سلام
Public Sub findfilelocation(ByVal filename As String)
Try
Dim file As String = IO.Path.GetFullPath(filename)
Diagnostics.Process.Start("Explorer.exe", String.Format("/select,{0}", IO.Path.Combine(Environment.GetEnvironmentVariable ("SystemRoot"), file)))
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f As String = Environment.GetFolderPath(Environment.SpecialFolde r.MyComputer)
findfilelocation(f)
End Sub
نکته: در کد بالا مای کامپیوتر باز نمیشود از کد زیر استفاده میشود و مای دانلود سون توی لیست SpecialFolder وجود ندارند
وبرای مای لایبرری اگه یه شورت کات از فولدر بگیری مسیر رو به جای Downloads کپی کن
C:\Users\mohammad\AppData\Roaming\Microsoft\Window s\Libraries
Process.Start("explorer.exe", "/e,/select,c:")' my computer
Dim f As String =Environment.GetFolderPath(Environment.SpecialFold er.UserProfile) & "\Downloads" ' Downloads
Dim f As String =Environment.GetFolderPath(Environment.SpecialFold er.ApplicationData) & "\Microsoft\Windows\Libraries " 'Libraries
این برای تغییر ولوم ویندوز
http://www.codeproject.com/Articles/...Volume-Control