Home > Chỉ dẫn lập trình > Create file with fullpath via vbs

Create file with fullpath via vbs

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”

Categories: Chỉ dẫn lập trình Tags:
  1. Chưa có bình luận nào.
Content (You can use Yahoo! Messenger Emoticons :D = smile)
Captcha