XML hazırlama kodlarında değişiklik

[İsmail Küçükşengün]

Merhaba;

Sayın Haluk'un yardımıyla;

Sub Test()
    Dim FSO As Object, MyFolder As Object, MyFile As Object
    Dim MaxN As Long
    Dim Temp
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set MyFolder = FSO.GetFolder("D:\Hukuk\UYAPDOSYALARI")
    MaxN = 0
    For Each MyFile In MyFolder.Files
        If LCase(Right(MyFile.Name, 3)) = "xml" Then
            Temp = Replace(MyFile.Name, "Takip_Talebi_", Empty)
            Temp = Val(Replace(Temp, ".xml", Empty))
            If Val(Temp) > MaxN Then MaxN = Val(Temp)
        End If
    Next
        MsgBox "D Sürücüsü/Hukuk/UYAP DOSYALARI Klasöründe Rastlanan en son uyap dosyası :" & "Takip_Talebi_" & MaxN & " .xml" _
              & vbCrLf & vbCrLf & "Yeni dosya adı : Takip_Talebi_" & MaxN + 1 & ".xml", vbOKOnly + vbInformation, Application.UserName
    Set MyFolder = Nothing
    Set FSO = Nothing
 
ActiveSheet.Range("J3").Value = "D:\Hukuk\UYAPDOSYALARI\Takip_Talebi_" & MaxN + 1 & ".xml"
End Sub

Koduyla EXCEL sayfasındaki buton yardımıyla, D sürücüsünde, Hukuk Klasörü içindeki UYAP DOSYALARI klasörü içine XML yazılıyor.

Benim istirhamım;

D Sürücüsü/Hukuk/UYAP DOSYALARI klasörü yerine,

Hem C Sürücüsü/Hukuk/UYAP DOSYALARI klasörüne ve hemde
MASAÜSTÜNDE O AN OLUŞTURULACAK "UYAP DOSYALARI" Klasörü İÇİNE YAZILMASI.

Bunun için yukarıdaki kodda ne gibi değişiklik yapılabilir.

Şimdiden teşekkürler.