Kod değişikliği

[k0081]

Merhabalar;

Aşağıdaki Kod en son tarihli, ve saatli isme göre kopyalama yapıyor. excel hücrelerini kullanarak, işlem yapıyor..

bunu excel hücrelerine almadan değişken tanımlayarak nasıl yapabiliriz ?

Private Sub CommandButton3_Click()
Dim x As Long, yeni As Worksheet
Dim evn As Object, klasor As Object

Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder("E:\YEDEK")
[B]Set yeni = Sheets.Add

yeni.Range("a1").Value = "Tarih"
yeni.Range("b1").Value = "Seri"[/B]
For Each altklasor In klasor.subfolders
 bol = Split(altklasor.Name, " ")
[B]yeni.Range("a65536").End(3)(2, 1).Value = CDate(Replace(bol(0), "_", "."))
 yeni.Range("a65536").End(3)(1, 2).Value = Replace(bol(1), "_YEDEK", "")
 yeni.Range("a65536").End(3)(1, 3).Value = altklasor.Name[/B]
Next
[B]yeni.Range("a1").Sort Range("a1"), xlDescending, Range("b1"), , xlDescending[/B]

hedef = yeni.Range("c2").Value & "\PLT1"
MsgBox hedef
Set algel = evn.getfolder("E:\yedek" & "\" & hedef)
evn.CopyFile algel & "\*.*", "c:\01"
End Sub

************************* Bu Konu Çözülmüştür. *************************