Dosya açma

[udentr2002]

Merhaba arkadaşlar,

Butona tıkaldığımda ilgili bir dosyayı açmak için aşağıdaki kodu kullanıyordum ve kod çalışıyordu bu dosya normal C dizininin altındaki bir dosya dır.

Dim a
a = Shell("C:\WINDOWS\Explorer.exe C:\Teknik Çizimler\" & TextBox3.Value, vbNormalFocus)

o ilgili dosyayı ortak bir ağ altına almak zorunda kaldım bu ağ altındaki dosya yolu aşağıdaki gibidir.

\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler

bu dosya yolunu yukarıda ki koda uygulamaya çalıştım ama başaramadım.
O dosya yolunu butona tıkaldığımda ilgili dosyayı açabilmesi için nasıl değiştirebilirim.

Konu hakkında yardım ve önerilerinizi rica ederim.

SAYGILARIMLA

HAYIRLI CUMALAR

 

[chngrcn]

Merhaba arkadaşlar,

Butona tıkaldığımda ilgili bir dosyayı açmak için aşağıdaki kodu kullanıyordum ve kod çalışıyordu bu dosya normal C dizininin altındaki bir dosya dır.

Dim a
a = Shell("C:\WINDOWS\Explorer.exe C:\Teknik Çizimler\" & TextBox3.Value, vbNormalFocus)

o ilgili dosyayı ortak bir ağ altına almak zorunda kaldım bu ağ altındaki dosya yolu aşağıdaki gibidir.

\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler

bu dosya yolunu yukarıda ki koda uygulamaya çalıştım ama başaramadım.
O dosya yolunu butona tıkaldığımda ilgili dosyayı açabilmesi için nasıl değiştirebilirim.

Konu hakkında yardım ve önerilerinizi rica ederim.

SAYGILARIMLA

HAYIRLI CUMALAR

Dim a
FileCopy "\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler\ & TextBox3.Value ", "C:\Teknik Çizimler\" & TextBox3.Value"
a = Shell("C:\WINDOWS\Explorer.exe C:\Teknik Çizimler\" & TextBox3.Value, vbNormalFocus)

bu şekilde dener misiniz.. ( not: ben test edemedim.. ) s aygılar..

 

[udentr2002]

kardeş kodu senin kodu yazdığımda zaten kırmızı renkli olarak işaretliyor. Ve sanırım sorumu anlayamadın.

Benim yazdığım kod da dosya C sürücüsünün altındaydı o zaman çalışıyordu kod şimdi o dosyayı c sürücüsünün altından alıp ağda çalışan bir dosya altına almak zorunda kaldım

O dosya yolunu da 1. mesajımda belirttiğim gibidir.

Şimdi butona tıkaldığımda ağda bulunan dosya yolunu belirttiğim klasörü açması lazım

 

[security]

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("[URL="file://cirmen/Data/Bilgi/Bölümler/Lansman/Teknik"]\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik[/URL] Çizimler")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu, vbNormalFocus)
End Sub

VEYA

Private Sub CommandButton1_Click()
Dim a
a = Shell("C:\WINDOWS\Explorer.exe \\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler
 ", vbNormalFocus)
End Sub

 

[udentr2002]

Teşekkürler hocam diğer bilgisayarda deneyip hemen haber vericem

 

[udentr2002]

Merhaba Hocam
Öncelikle ilgilendiğiniz için teşekkür ederim.
Sizin göndermiş olduğunuz aşağıdaki kodu yazdığımda sorunsuz olarak çalışıyor

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu, vbNormalFocus)
End Sub

Ancak o yolun devamında yani "Teknik Çizimler" adlı klasörünün atında devam eden başka klasörlerde var o klasörüde form üzerinde ki textbox3 ten aldırıyorum. Yani sizin gönderdiğiniz kodu aşağıda ki gibi revize edip değiştiriyorum. o zaman çalışmıyor dosya isimlerine baktım hepsi doğru neden textbox3 e gelen adı koda aşağıda ki gibi ilave ettiğim de çalışmıyor ben mi bir yerde yanlış yapıyorum

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler"&TextBox3.value)
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu, vbNormalFocus)
End Sub

Rica etsem tekrar bakabilir misiniz hocam

 

[security]

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("[URL="file://\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik"]\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik[/URL] Çizimler")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu & TextBox3.Value, vbNormalFocus)
End Sub

texbox3 kutusunda bir şey yazmassa \\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler
klasörünü açar..

yazarsa \\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler
textboxta yazan klasörü açar..

Sanırım İstediğiniz Bu Şekilde Yanlış Anlamadıysam...

 

[udentr2002]

Merhaba Hocam

sizin göndermiş olduğunuz şekli ile denedim.

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu & TextBox3.Value, vbNormalFocus)
End Sub

açmıyor. Bilgisayarımdaki belgelerim klasörünün açıyor hocam eğer o kodu aşağıdaki gibi yazarsam

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu, vbNormalFocus)

Teknik Çizimler klasöürünü açıyor.
Ben o teknik çizimler klasöründen sonra textbox3 e gelen klasörüde eklemek istiyorum
Sizide yoruyorum ama hakkınızı helal edin.

 

[security]

Verdigim kodda Sorun Yok Yanlış Yani Yazım Hatası Yapıyorsunuzdur...
text Kutusuna Yazdıgınız klasör Adını yazarken \ işereti koyun.
Düzelecektir...

veya Kodu Aşagıdaki Gibi Değiştirin...

Private Sub CommandButton1_Click()
Dim Dosya_Yolu
Dosya_Yolu = ("\\cirmen\Data\Bilgi\Bölümler\Lansman\Teknik Çizimler\")
Dosya_Yolu = Shell("C:\WINDOWS\Explorer.exe " & Dosya_Yolu & TextBox3.Value, vbNormalFocus)
End Sub

Denendi Sorunsuz Çalışıyor...