resimler klasörünü açmak

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Dosyamda bulunan bir Userform1 üzerinde bulunan CommandButton1 ile "Resimler Klasörünü Aç" bu tuşa tıklayınca bilgisayarımın
D:\Belgelerim\Muhtelif\Resimler\ içerisinde bulunan klasöre ulaşmak için nasıl bir kod yazılır.

Sitede şöyle bir kod buldum;
Private Sub CommandButton1_Click()

If Label1 = "" Then
Exit Sub
End If
ad = Label1
On Error Resume Next
If Dir(ad) = "" Then MkDir ad
WinExec "Explorer.exe " & ad, 1

End Sub

ama ben bunu çalıştıramadım.

Buna bir bakarmısınız? Teşekkürler.

 

[halit3]

Merhaba arkadaşlar; Dosyamda bulunan bir Userform1 üzerinde bulunan CommandButton1 ile "Resimler Klasörünü Aç" bu tuşa tıklayınca bilgisayarımın
D:\Belgelerim\Muhtelif\Resimler\ içerisinde bulunan klasöre ulaşmak için nasıl bir kod yazılır.

Sitede şöyle bir kod buldum;
Private Sub CommandButton1_Click()

If Label1 = "" Then
Exit Sub
End If
ad = Label1
On Error Resume Next
If Dir(ad) = "" Then MkDir ad
WinExec "Explorer.exe " & ad, 1

End Sub

ama ben bunu çalıştıramadım.

Buna bir bakarmısınız? Teşekkürler.

İki adet kod var istediğini kullan

Private Sub CommandButton1_Click()
surucu = "D:"
altklasor1 = surucu & "\Belgelerim"
altklasor2 = altklasor1 & "\Muhtelif"
altklasor3 = altklasor2 & "\Resimler"
If CreateObject("Scripting.FileSystemObject").FolderExists(altklasor1) = False Then
MkDir altklasor1
End If
If CreateObject("Scripting.FileSystemObject").FolderExists(altklasor2) = False Then
MkDir altklasor2
End If
If CreateObject("Scripting.FileSystemObject").FolderExists(altklasor3) = False Then
MkDir altklasor3
End If
CreateObject("Shell.Application").Open (altklasor3)
End Sub

Private Sub CommandButton2_Click()
Klasor = "D:\Belgelerim\Muhtelif\Resimler"
If CreateObject("Scripting.FileSystemObject").FolderExists(Klasor) = False Then
MkDir Klasor
End If
CreateObject("Shell.Application").Open (Klasor)
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler Halit Bey; Yukarıdaki kodu da sizin hazırlamış olduğunuz, "resim oluşturmak 75 uzantılı" dosyadan almıştım ama çalışmadı, bunu deneyeceğim, ilginize teşekkür dua ile kalın.

 

[Hacı Bayram ÖZKAN]

üstadım birde aynı klasörün içinde PowerPoint dosyam var onuda siteden aldığım kodu uyguladım onuda açamadım, buna da bir kod yazarmısın. Teşekkürler.
Private Sub CommandButton3_Click()

'Referanslardan, Microsoft PowerPoint 12.0 Object Library referansını işaretleyin.
Dim PPT As PowerPoint.Application
Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open Filename:="d:\Belgelerim\Muhtelif\Resimler\TEST.pps".
End Sub

 

[halit3]

kod:

dosyaadi = "d:\Belgelerim\Muhtelif\Resimler\TEST.pps"
CreateObject("Shell.Application").Open (dosyaadi)

 

[Hacı Bayram ÖZKAN]

Merhaba; sadece bu kodumu yazacağım yoksa üstteki koda ekleme mi yapacağım, bu kod sadece dosyamı açmadı. Teşekkürler

 

[halit3]

Private Sub CommandButton3_Click()

'Referanslardan, Microsoft PowerPoint 12.0 Object Library referansını işaretleyin.
Dim PPT As PowerPoint.Application
Set PPT = New PowerPoint.Application
PPT.Visible = True
PPT.Presentations.Open Filename:="d:\Belgelerim\Muhtelif\Resimler\TEST.pps".
End Sub

Merhaba; sadece bu kodumu yazacağım yoksa üstteki koda ekleme mi yapacağım, bu kod sadece dosyamı açmadı. Teşekkürler

Koddaki uzantıyı siz yanlış yazmışsınız tabi bizde sizin koddaki dosyanın adresini aynen yaoptık dolayısıyla uzantı hatalı.
Eğer PowerPoint Sunusu nu açmak istiyorsanız uzantı ppt veya pptx olmalı

kod:

Private Sub CommandButton1_Click()
dosyaadi = "d:\Belgelerim\Muhtelif\Resimler\TEST.[COLOR=red]ppt[/COLOR]"
CreateObject("Shell.Application").Open (dosyaadi)
End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler halit bey; oldu eline sağlık bizler acemiyiz bizi idare et. Bu kusurumuzu hoş karşıla. Selametle.