Formumuza 9 adet buton, 2 adet textbox ekleyelim. text2 nin mulnitine özelligini true ve scrollbars özelligini vertical yapalım. daha sonra asagıdaki kodu yapıstırıp satır satır inceleyelimTesadüfen kesfettigim bir konuyu paylasayım dedim.. simdi bir çogumuz klasöre gözat pencereleri vardırya hatta yeni klasör butonu olanından bu pencereyi yapmak için veya word,Excel v.s dosyalarını açmak, web sayfası açmak, mail göndermek için modül, birden fazla satırlı apiler felan biliyoruz.. eger sizde böyle yapıyorsanız, o zaman sasıracaksınız… sadece bu degil apilerle v.s yapılan birçok win islemini tek satırda yapabiliriz.. Aklınıza gelen her türlü dosyayı açmak içinde birebir.. deneyin ve görün..
Option Explicit
Dim opt As New Shell
Dim klasor As Folder
Private Sub Command1_Click()
On Error Resume Next
Set klasor = opt.BrowseForFolder(hWnd, "İste klasöre gözat penceresi, yeni klasör butonlusundan ", 1)
'eger sadece istediginiz bir dizinten itibarenki klasörleri göstermek istiyorsanız
'Set klasor = opt.BrowseForFolder(hWnd, "İste klasöre gözat penceresi, yeni klasör butonlusundan ", 1, "C:\windows\")
With klasor.Items.Item
Text1.Text = .Path 'Text1 klasörün yolu text 2 özellikleri
Text2.Text = "İsim: " & .Name & vbCrLf & _
"Klasör Türü: " & .Type & vbCrLf & _
"Konum: " & .Parent & vbCrLf & _
"Son Degisiklik: " & .ModifyDate & vbCrLf
End With
End Sub
Private Sub Command2_Click()
opt.ControlPanelItem "inetcpl.cpl" 'internet seçeneklerini açar
'desk.cpl 'masaüstü özellikleri
'sysdm.cpl 'sistem özellikleri
'appwiz.cpl 'program ekle kaldır
'daha fazlası için windows\system32 de *.cpl diye aratın
End Sub
Private Sub Command3_Click()
opt.Open "c:\bel1.doc" 'ahada word dosyası açıyo
'Opt.open “c:\rifocan.xls”
'Opt.open “c:\rifocan.reg” v.s
End Sub
Private Sub Command4_Click()
opt.FindFiles 'dosya arama penceresi
End Sub
Private Sub Command5_Click()
opt.FileRun 'çalıstır penceresi
End Sub
Private Sub Command6_Click()
opt.Open "http://www.google.com" 'varsayılan browserda internet sitesi açıyoruz
'opt.Open "mailto:rifaterdemir@hotmail.com" 'varsayılan programda mail atıyoruz
'opt.Open App.Path 'klasör açıyoruz
End Sub
Private Sub Command7_Click()
opt.SetTime 'zaman ayarı
End Sub
Private Sub Command8_Click()
opt.MinimizeAll 'Tüm pencereler minimize
End Sub
Private Sub Command9_Click()
If MsgBox("Windows u kapatacak mısınız?", 32 + 4) = vbNo Then Exit Sub
opt.ShutdownWindows 'Windowsu kapat
End Sub
kodlar alıntıdır. Ders düzenlemesi bana aittir