SÜRÜCÜ VE KLASÖR DEĞİŞTİRME

[ark123]

Merhaba arkadaşlar;
Aşağıda yazdığım kodlar ile sürücü ve klasör değişikliği yapmak istiyorum.
Sürücüyü (dd değişkeni) C veya D yazdığımda o sürücüdeki klasörü (dosya değişkeni) nü buluyor.
Ancak ağdaki \\10.60.0.6\pts\MESAİ TAKİP SİSTEMİ\ŞUBE MÜDÜRLÜKLERİ klasörünü bulamıyor.
Burada sürücüye (dd değişkenine) ve klasöre (dosya değişkenine) neyi nasıl atamalıyım



Dim a(100, 6), b(100, 6), C(100, 6) As String
Dim resimne As String: sube = Cells(2, 2):
dosya = Cells(4, 2): dd = Cells(5, 2): ChDrive (dd)
KK = 0: ' dosya = "\\10.60.0.6\pts\MESAİ TAKİP SİSTEMİ\ŞUBE MÜDÜRLÜKLERİ\2025\10_EKIM\"
ChDir (dosya)
'ChDir "\\10.60.0.6\pts\MESAİ TAKİP SİSTEMİ\ŞUBE MÜDÜRLÜKLERİ\2025\10_EKIM"
resimne = Application.GetOpenFilename(filefilter:="DEVAM Dosyası (*.xl*),*.xl*", Title:="ResimYÜKLE", MultiSelect:=False)
If resimne = "False" Then Exit Sub

 

[muhasebeciyiz]

ChDrive sadece yerel sürücü harfleriyle (C, D, E…) çalışır.
\\10.60.0.6\... gibi UNC yolunu sürücü olarak kabul etmez. Bu yüzden ağ klasörüne geçemiyorsun.

Eğer klasörün tam yolu hücrede duruyorsa, dd’ye hiç gerek yok.
Örnek (senin koda göre uyarlanmış):

Sub DosyaSec()

    Dim a(100, 6) As String
    Dim b(100, 6) As String
    Dim c(100, 6) As String
   
    Dim sube As String
    Dim dosya As String
    Dim resimne As Variant
    Dim KK As Long

    sube = Cells(2, 2).Value
    dosya = Cells(4, 2).Value  ' Buraya TAM UNC yolu yaz:  \\10.60.0.6\pts\...

    KK = 0  
    ChDir dosya  

    resimne = Application.GetOpenFilename( _
                FileFilter:="DEVAM Dosyası (*.xl*),*.xl*", _
                Title:="ResimYÜKLE", _
                MultiSelect:=False)

    If resimne = "False" Then Exit Sub

End Sub

Sürücü harfi kullanmak istiyorsan (Z:, Y: gibi)

Eğer illa dd ve dosya ayrı olsun istiyorsan, önce ağ sürücüsünü Windows’ta map etmelisin:

• Dosya Gezgini → “Ağ sürücüsüne bağlan”
• Örneğin:
  • Sürücü: Z:
  • Klasör: \\10.60.0.6\pts
• Sonra Excel’de:
  • B5 hücresine: Z
  • B4 hücresine: Z:\MESAİ TAKİP SİSTEMİ\ŞUBE MÜDÜRLÜKLERİ\2025\10_EKIM\