Function CreateFile(strIn)
    Dim fso
    Set fso = CreateObject(“scripting.filesystemobject”)
    Dim a : a = Split(strIn , “/”)
    Dim s : s = “”
    For i = 0 To UBound(a) – 1
        If i = 0 Then
            s = a(i)
        Else
            s = s & “/” & a(i)
        End If
        If fso.FolderExists(s) Then
            ‘Do Nothing
        Else
            fso.CreateFolder s
            ‘WScript.Echo s
        End If
    Next
    fso.CreateTextFile strIn
    Set fso = Nothing
End Function
‘CreateFile “C:/d1/d2/d3/myfile.txt”