En son olusturulan Klasoru secip icine dosya aktarma

[lapot]

Merhaba arkadaslar

Bu kod ile masa uzerinde isminde tarih ve saat olan klasor olusturabiliyorum. Amacim olusturdugum enson klasore nasil birden fazla dosya aktarabilirim? ikinci paragrafta ne yapmak istedigimi aciklamaya calistim.

Sub AFolderVBA()
ad = "C:\Users\TR\Desktop\"
Klasor = "Statements"
say = Format(Now, "yyyy-mm-dd hh-nn-ss")
If CreateObject("Scripting.FileSystemObject").FolderExists(ad & Klasor) = False Then
MkDir ad & Klasor & say
End If
End Sub

Bu asagidaki kod ile de masa uzerindeki "Statement" klasorune pdf dosyami kayit ettirebiliyordum fakat simdi yukaridaki kod ile "Statement" klasoru isminin sonuna tarih ve saat eki aliyor ve tabiki buda degisken oluyor. Asagidaki koda nasil bir ekleme yapabilirimki programi her calistirdigimda yeni olusturulan klasoru bulsun ve ona dosyayi aktarsin. Yani hedef en son olusturulan Klasor olacak her defasinda.

Dim as Dosya_Adi As String
Dosya_Adi = "C:\Users\TR\Desktop\Statements\" & strFilename & ".pdf"

Saygilar sunuyorum

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod, masaüstü dizininde olup son OLUŞTURULAN KLASÖRün adını ve oluşturulma tarihini bulur.
Belgenizin kaydetme yolu (son oluşturulan klasörün İSMİ) olarak bunu kullanabilirsiniz.

Sub SON_KLASOR()
Set FSOnesnesi = CreateObject("Scripting.FileSystemObject")
masaustu = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\"
Set dizin = FSOnesnesi.GetFolder(masaustu)
Set dizinn = dizin.SubFolders
    For Each altkls In dizinn
        yaratildi = altkls.DateCreated
        If yaratildi > yeni Then
            yeni = yaratildi
            isim = altkls.Name
        End If
    Next
MsgBox "OLUŞTURULAN SON KLASÖR:" & vbLf & _
    "-- Adı :" & isim & vbLf & "-- Oluşturulma Tarihi : " & yeni,vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[lapot]

cok sagol arkadasim , verdigin kodu uyarlamaya calisacagim

saygilar sunuyorum