วันพุธที่ 19 กันยายน พ.ศ. 2561

VBA, MkDir, Dir, Kill, RmDir การสร้าง Folder และ การตรวสสอบค่า ใน Folder


VBA การสร้าง Folder และ การตรวสสอบค่า ใน Folder

Dim tmpFileName, pfile, FILEFOUND
 
    'MkDir (C:\EXPORT\SCSMG_20180510_CALLER)

    pfile = "C:\EXPORT\SCSMG_20180510_CALLER\*.*"
         
     FILEFOUND = Dir(pfile)
   
    If FILEFOUND = "" Then

       MsgBox "NULL"

    Else

       MsgBox FILEFOUND

    End If

--------------------------------------------------------------------------------------

Sub DeleteExample4()
'You can use this to delete the whole folder
'Note: RmDir delete only a empty folder
    On Error Resume Next
    Kill "C:\Users\Ron\Test\*.*"    ' delete all files in the folder
    RmDir "C:\Users\Ron\Test\"  ' delete folder
    On Error GoTo 0
End Sub
   

ไม่มีความคิดเห็น:

แสดงความคิดเห็น