Dosya yolu klasörünü açmak

[cebelitarık]

Forumun değerli üyeleri

Dosya yolu klasörünü açmak istiyorum.

Dosya_Yolu = C:\Documents and Settings\kullanici\Desktop\cihan


ac = Shell("Explorer" & Dosya_Yolu, 1)

Kod hata veriyor. Dosya bulunamadı diyor. Nasıl yazmak lazım.


Saygılarımla

 

[security]

Private Sub CommandButton1_Click()
'Coder By Security
Dim a
a = Shell("C:\WINDOWS\Explorer.exe C:\Documents and Settings\Coder By Security\Desktop\security", vbNormalFocus)
End Sub
kodu kendinize göre düzenleyin...

 

[cebelitarık]

sayın security teşekkür ederim

Dosya yolum değişken olduğu için
yolu değişkenle tarif etmem gerekiyor.

Ancak kodun içine DOSYA_YOLU değişkenini yerleştiremedim


Dosya_Yolu = C:\Documents and Settings\kullanici\Desktop\cihan
yolu örnek olarak Dosya_Yolu değişkenine eşitledik diyelim.

a = Shell("C:\WINDOWS\Explorer.exe" & Dosya_Yolu, vbNormalFocus) böyle yazıyorum olmuyor.

saygılarımla

 

[security]

Private Sub CommandButton1_Click()
'Coder By Security
Dim Dosya_Yolu
Dosya_Yolu = "C:\Documents and Settings\kullanici\Desktop\cihan"
If Dosya_Yolu<> "" Then
CreateObject("Shell.Application").Open (Dosya_Yolu)
End If
End Sub

Denermisiniz. Sorunsuz Çalışması Lazım Gerçi

 

[security]

SN: cebelitarık Son Verdiğim Kodu Denediniz mi?

 

[security]

Yine Geri Dönüş Yok...

 

[cebelitarık]

sayın security
Özür dilerim dün geceyi hastane acilinde geçirdim.
O yüzden dönemedim.
Kodu denedim çok güzel çalıştı teşekkür ederim.
Ancak aşağıdaki kod yazımında ne hata var acaba?
Değişkenin yerine direk olarak yolu yazarsak çalışıyor. Ancak değişkeni neden yazamadık.

Dosya_Yolu = C:\Documents and Settings\kullanici\Desktop\cihan


a = Shell("C:\WINDOWS\Explorer.exe" & Dosya_Yolu, vbNormalFocus) böyle yazıyorum olmuyor.
Saygılarımla

 

[security]

ÖNCELİKLE GEÇMİŞ OLSUN...

Private Sub CommandButton1_Click()
'Coder By Security
Dim Dosya_Yolu
Dosya_Yolu = "C:\RESİM"
CreateObject("Shell.Application").Open (Dosya_Yolu)
End Sub

İŞİNİZE YARAMADIMI NEDEN ÖNCEKİ KODU KULLANMAK İSTİYORSUNUZ ANLAMIŞ DEĞİLİM DEĞİŞKEN OLACAK DEDİNİZ SİZE ONA GÖRE KOD HAZIRLADIK...

 

[halit3]

sayın security
Özür dilerim dün geceyi hastane acilinde geçirdim.
O yüzden dönemedim.
Kodu denedim çok güzel çalıştı teşekkür ederim.
Ancak aşağıdaki kod yazımında ne hata var acaba?
Değişkenin yerine direk olarak yolu yazarsak çalışıyor. Ancak değişkeni neden yazamadık.

Dosya_Yolu = C:\Documents and Settings\kullanici\Desktop\cihan


a = Shell("C:\WINDOWS\Explorer.exe" & Dosya_Yolu, vbNormalFocus) böyle yazıyorum olmuyor.
Saygılarımla

Geçmiş olsun

değişken olarak atanan dosya yolundaki tırnak işaretleri yok belkide ondan çalışmıyordur.

Dosya_Yolu =[COLOR=red] [B]"[/B][/COLOR]C:\Documents and Settings\kullanici\Desktop\cihan[COLOR=red][B]"[/B][/COLOR]

 

[cebelitarık]

SAYIN SECURİTY

Kodun çalıştığını ve işe yaradığı yukardaki mesajımda belittmiştim zaten

Ancak sadece öğrenmek amacıyla eski kodun nasıl düzenleneceğini sormuştum. Eski kodda tırnak hatası yapıyorum ama nerede bulamadım.

SAYGIYLA

 

[security]

sn: cebelitarık buyrun İstediğiniz Kod...

Private Sub CommandButton1_Click()
'Coder By Security
Dim Dosya_Yolu
Dosya_Yolu = ("C:\Documents and Settings\kullanici\Desktop\cihan")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu, vbNormalFocus)
End Sub

İstediğiniz kod Bu Şekilde Sanırım...

 

[Mx@Raid]

Aşağıdaki kodla da işinizi görür zannedersem. Kendi denememde sonuç elde ettim.

Function PathFileToPath(sFilePathName As String) As String

    Dim lThisChar As Long
    
    PathFileToPath = ActiveWorkbook.Path & "\" & sFilePathName ' Önemli olan bu kısım ActiveWorkbook.Path yerine uygulamanıza uygun hale getirebilirsiniz.
    lThisChar = InStrRev(sFilePathName, "\")
    
    If lThisChar Then
    
        PathFileToPath = Left$(sFilePathName, lThisChar)
        
    Else
    
        lThisChar = InStrRev(sFilePathName, "/")
        
        If lThisChar Then
        
            PathFileToPath = Left$(sFilePathName, lThisChar)
            
        End If
        
    End If
    
End Function

aşağıdaki yolla veritabanı dosyasının yoluna kendi ulaştı. üzerinde değişiklik yaparak sonuca ulaşabilirsiniz.

DenemeFile = PathFileToPath("Tablo.mdb")

 

[engineer1993]

Merhabalar,

Ben benzer bir makro oluşturacağim ama bir türlü yapamadım. Destek olabilir misiniz?

Benim normal olarak yazdığım basit bir makro mevcut. Bu makronun A satırına bir uzantıdan Örnek olarak masaüstünden excel klasörüne, dosya/dosyanın uzantısını çekmesini istiyorum.

Nasıl yapabilirim? Destek olabilir misiniz?

Teşekkür ederim.

İyi çalışmalar.

 

[Tevfik_Kursun]

Teşekkürler Security,
Kodlar hala işe yarıyor
Saygılarımla