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
ไม่มีความคิดเห็น:
แสดงความคิดเห็น