Dim StrChr As String Dim StCode As String Dim InFil As Integer StrChr = Chr(34) StCode = StCode & "@ECHO OFF" & vbNewLine StCode = StCode & "md " & StrChr & "C:\Program Files\Test" & StrChr & vbNewLine InFil = FreeFile Open "Temp.bat" For Output As InFil Print #InFil, StCode Close InFil Shell "Temp.bat", vbHide