چجوري ميشه درايوي كه ويندوز توش نصبه رو پيدا كرد

سلام
چجوري ميشه jتو vb.net درايوي كه ويندوز توش نصبه رو پيدا كرد و به پوشه temp ويندوز رفت و حتي در صورت نبود اين پوشه اونو ساخت
DRive Windows>:\Documents and Settings\<Name Of Computer>\Local Settings\Temp\<Name Of Folder>

حالا خوبه يه سوال ساده پرسيديما
اين سوالم اضافه شد
چگونه يه برنامه مثه Paint بنويسم كه ZoomInو ZoomOut داشته باشه

رفیق رو اعصابت مسلط باش!
برای بدست آوردن Temp از این استفاده کن:

کد:

---

System.IO.Path.GetTempPath();

---

برای بدست آوردن ریشه ویندوز هم :

کد:

---

System.IO.Path.GetPathRoot(System.Environment.SystemDirectory);

---

برای Zoom کردن هم از کمپوننت استفاده کن برو کامپوننت های عکس رو از اینجا دانلود کن

کد:

---

http://freecomponents.blogfa.com/

---

موفق باشید.

Private Sub ButtoN_ZoomIn_p2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtoN_ZoomIn_p2.Click

zoomIn += 5
PictureBox_p2.Image = Image.FromFile("c:\hmlight.bmp")
Dim bm As New Bitmap(PictureBox_p2.Image, (Convert.ToInt32(PictureBox_p2.Width * zoomIn / 100)), (Convert.ToInt32(PictureBox_p2.Height * zoomIn) / 100))
Dim Converted As Graphics = Graphics.FromImage(PictureBox_p2.Image)
Converted.InterpolationMode = Drawing2D.InterpolationMode.Bicubic
PictureBox_p2.Image = Nothing
PictureBox_p2.Image = bm

End Sub

یک قسمت هست Environment نمیدونم دقیق پارامترش رو ولی MSDN نصب باشه خیلی خوبه Special Folder آدرس فولدر های ویندوز رو داره
Special Folder تو MSDN سرچ کن

اینم کل سورس اون چیزی که شما لازم داری:46:
PublicClassForm1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'بدست آوردن پوشه temp
MsgBox(My.Computer.FileSystem.SpecialDirectories.Temp)
　
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'بدست آوردن پوشه ویندوز
MsgBox(Environment.SystemDirectory)
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'برای چک کردن وجود پوشه temp در ویندوز
MsgBox(My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp))
　
EndSub
PrivateSub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'اگر پوشه temp موجود نبود با این کد می تونی اونو درست کنی
IfMy.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Temp) = FalseThen
My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Temp)
MsgBox("created!!!!")
Else
MsgBox("it is true")
Exit Sub
EndIf
　
EndSub
EndClass