Private Sub Command1_Click()
MkDir "C:\Testapp"
Open "C:\Testapp\Testfile.txt" For Output As #1
Close #1
'Call Dir("C:\Testapp\Testfile.txt")
Kill "C:\Testapp\Testfile.txt"
RmDir "C:\Testapp"
End Sub
 
Private Sub Command2_Click()
MkDir "C:\Testapp"
Open "C:\Testapp\Testfile.txt" For Output As #1
Close #1
Call Dir("C:\Testapp\Testfile.txt")
Kill "C:\Testapp\Testfile.txt"
RmDir "C:\Testapp"
End Sub