excel dosyası kopyalandığında yeni isim tarihin yılı olsun

[bulentcigali]

iyi günler,
sayın bedenus tarafından hazırlanan çalışmalardan yararlanarak bir excel dosyasını kopyaladım.

Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFolder "c:\maas", "d:\SXS"
ile yaptım.ben, d:\SXS adının yanına ne yazmalıyım ki ilgili yılı otomatik olarak yazsın. yani dizi d:\SXS2007 gibi olsun istiyorum.böyle birşey yapılabilirmi.
teşekkürler

 

[Zeki Gürsoy]

Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFolder "c:\maas", "d:\SXS" & Year

 

[bulentcigali]

sayın anemos ilginize teşekkür ederim.bende sizin yaptığınız gibi yapmıştım ve hata veriyor ve "argument not optional" mesajı veriyor.

 

[Zeki Gürsoy]

Test etmemiştim. Bu şekilde deneyin.

[LEFT]Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFolder "c:\maas", "d:\SXS" & Year(Now)

[/LEFT]

 

[bulentcigali]

sayın anemos şimdi oldu çok teşekkür ederim.bende date olarak kullanmıştım ve tarih olarak çıkmıştı.
yeni yılda sağlık ve mutluluklar diliyorum.
iyi günler