Commandbuton ile klasör açmak..

[ReBiwAr]

Comandbuton ile bilgisayarımdaki bi klasörü nasıl açabilirim.

Teşekkürler...

 

[hamitcan]

Yeni fark ettim; yapmak istediğinizi daha net anlatmalısınız. Verdiğim örneği yeni bir klasör açmak için kullanabilirsiniz.

Private Sub CommandButton1_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\YeniKlasor")
End Sub

 

[ReBiwAr]

teşekkürler...

 

[ReBiwAr]

hata verdi kardeş...

 

[ReBiwAr]

Yine hata verdi. Benim yapmak istediğim şu elimde bir comand buton var basınca verdiğim yoldaki klasör açılsın. Bu verdiğiniz kodla olmuyor. Amacım yeni klasör yaratmak değil varolan klasörü açmak...


Teşekkürler saygılar....

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim f As Object, s As String, d As String
On Error GoTo son
ListBox1.Clear
Set f = CreateObject("Shell.Application").BrowseForFolder(0, _
    "Taranacak klasörü seçin", 0)
If f Is Nothing Then Exit Sub
TextBox1.Value = f.items.Item.Path
s = IIf(Right$(TextBox1, 1) = "\", "", "\")
d = Dir(TextBox1 & s & "*.*")
TextBox2 = d
While d <> ""
    ListBox1.AddItem d
    d = Dir
Wend
son:
End Sub

 

[ReBiwAr]

yok anlatamadım ya ben butona basınca yolunu verdiğim klasör otomatik olarakekrana gelecek....

İlginize teşekkürler....

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu deneyiniz..

Açılacak dosya: C:\deneme

Private Sub CommandButton1_Click()
Shell "explorer.exe  c:\deneme ", vbNormalFocus
End Sub

 

[ReBiwAr]

Çok teşekkür ederim bu kod hakkında yardım alabilirmiyim hocam...??

 

[Ayhan Ercan]

Yardımcı olabileceğimiz birşey varsa neden olmasın k::

 

[ReBiwAr]

teşekkürler yazarım size gerçekten sagolun hocam....

 

[Ayhan Ercan]

teşekkürler yazarım size gerçekten sagolun hocam....

Rica ederim.
İyi Çalışmalar.. k::

 

[derya1]

konuyu okurken dikkatimi çekti
acaba şöyle bir şey olamaz benim çalişma kitabımda 30 sayfa var ve ben nasıl bir kod yazabilrim ki istediğim sayfayı açayım yani böyle bir şey olabilir mi
varsa böyle birşey kodlarını paylaşırsanız sevinirim
selamlar

 

[hamitcan]

Sayfa isimlerine, köprü yardımıyla link atayabilirsiniz.