代碼如下:打開窗口創(chuàng)建在c盤創(chuàng)建一個名為test的文件夾,關閉窗口則刪除

PrivateSubForm_Load()

MkDir("c:\test")

EndSub

PrivateSubForm_Unload(CancelAsInteger)

Kill("c:\test\*.*")

RmDir("c:\test")

EndSub