ThisWorkbook.Path & "\" yyyy & "\" aayyy klasörünü açma

[hsayar]

s1!a1 de yazan tarih değeri ile aktif çalışma kitabının altına önce tarihin yıl kısmı ile yoksa bir klasör aç, sonra aktif açlışma kitabı\yıl altına tarihin aayyyy formatı ile bir klasör aç

kodlar hata veriyor nasıl olmalıdır?

Sub FolderExistsYil_Ay()
Dim TargetFolder As String
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
Set s4 = Sheets("Aylık")
A = WorksheetFunction.Text(s1.Cells(1, 1), "yyyy")
b = WorksheetFunction.Text(s1.Cells(1, 1), "mmyyyy")
Set fs = CreateObject("Scripting.FileSystemObject")

'---------------Yıl
yol = ThisWorkbook.Path & "\" ' mevcut çalışma kitabının olduğu yol
TargetFolder = yol & A
MsgBox TargetFolder, , "1"
If Not fs.FolderExists(TargetFolder) Then
ChDir yol
MkDir A
MsgBox A & " Klasörü oluşturuldu.!"
Else
MsgBox A & " Klasörü var!"
End If

'---------------Ay
yol = ThisWorkbook.Path & "\" & A ' mevcut çalışma kitabının olduğu yol
TargetFolder = yol & A & "\" '& b
MsgBox TargetFolder, , "2"
If Not fs.FolderExists(TargetFolder) Then
ChDir yol
MkDir b
MsgBox b & " Klasörü oluşturuldu.!"
Else
MsgBox b & " Klasörü var!"
End If


End Sub

 

[hsayar]

Sub FolderExistsYil()
Dim TargetFolder As String
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
Set s4 = Sheets("Aylık")
A = WorksheetFunction.Text(s1.Cells(1, 1), "yyyy")
b = WorksheetFunction.Text(s1.Cells(1, 1), "mmyyyy")
Set fs = CreateObject("Scripting.FileSystemObject")

'---------------Yıl
yol = ThisWorkbook.Path & "\" ' mevcut çalışma kitabının olduğu ve alt klasör açılacak yol
TargetFolder = yol & A         ' Açılacak klasör adı ile birleşimi
If Not fs.FolderExists(TargetFolder) Then        'KONTROL
ChDir yol: MkDir A: MsgBox A & " Klasörü oluşturuldu.!"  'klasöre git, oluşturma mesajı ver
Else
MsgBox A & " Klasörü var!"   'var mesajı var
End If

'---------------Ay
yol = ThisWorkbook.Path & "\" & A ' mevcut çalışma kitabının olduğu yol
TargetFolder = yol & "\" & b
If Not fs.FolderExists(TargetFolder) Then
ChDir yol
MkDir b
MsgBox b & " Klasörü oluşturuldu.!"
Else
MsgBox b & " Klasörü var!"
End If

End Sub

a değişkenini iki kere belirtirsen tabi hata verir.
buldum sonunda...