program hangi sürücüde çalışıyorsa kodlar işlemi o sürücüde yapsın!

[olymposss]

sn hocalarım günaydın;
yine sabah sabah aklıma takılan birşey oldu (artık rüyamda görmeye başladım);
çalışma kitabımda aşğıdaki kodları kullanıyorum. commanbutton1 ile yeni bir klasör açıyorum ve o klasöre bazı dosyaları yüklüyorum. ancak ben kodları yazarken sürücü olarak "D:" yi seçtim. böylece hata oluşmaması için programın her zaman "D:" sürücüsünde kayıtlı olması gerekiyor. sormak istediğim ise program hangi sürücüde kayıtlı ise o sürücüyü kullanarak kayıt yapılabilir mi? yani program hangi sürücüde ise aşağıdaki kodlarda "D:" yerine bulunan sürücü gelsin.
kod:
Private Sub CommandButton1_Click()
On Error GoTo 10
MkDir ("d:\isos\" & Label2)
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\isos\file\*.xls", "d:\isos\" & Label2
MsgBox (Label2 & " YILINA AİT DÖNEM AÇILIŞI VE KULLANILACAK DOSYALARIN KOPYALANMASI TAMAMLANMIŞTIR.")
Unload Me
Exit Sub
10 MsgBox (Label2 & " Yılına ait bir klasör zaten mevcut."), , "HATA"
End Sub

yardımlarınız için şimdiden çok teşekkürler saygılar:yardim:
--------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
On Error GoTo 10
MkDir (ThisWorkbook.Path & "\" & Label2)
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile ThisWorkbook.Path & "\file\*.xls", ThisWorkbook.Path & "\" & Label2
MsgBox (Label2 & " YILINA AİT DÖNEM AÇILIŞI VE KULLANILACAK DOSYALARIN KOPYALANMASI TAMAMLANMIŞTIR.")
Unload Me
Exit Sub
10 MsgBox (Label2 & " Yılına ait bir klasör zaten mevcut."), , "HATA"
End Sub

 

[olymposss]

sn hocam

tek kelime ile mükemmel elleriniz dert görmesin. teşekkürler saygılar