SaveAs save in right folder

[goffy]

Hi

I got this code:

Private Sub GemSom_Click()


If Dir(ThisWorkbook.Path & "" & Range("b6").Value & " " & Date, vbDirectory) = "" Then
MkDir ThisWorkbook.Path & "" & Range("b6").Value & " " & Date
End If


'Dim Path As String
'Dim FileName As String
'FileName = Range("b6").Value & " " & Date
'ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Range("b6").Value & " " & Date


End Sub

The MkDir makes a folder, but how do i get to save the file i the folder just created? Itried "ThisWorkbook.Path\Range("b6").Value & " " & Date" to try somthing but as expected it did not work.

Hope someone can help

 

[Yongle]

The save to path including file name is the same as the folder you just created

This looks strange given how you have created the folder but I am sure you get the idea

[SIZE=2]ThisWorkbook.SaveAs ThisWorkbook.Path & "" & Range("b6").Value & " " & Date & "\" & FileName[/SIZE]