PHP كود :
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
