Menghapus File

Public Function FileDelete(ByVal strFile As String) If CBool(Len(Dir$(strFile))) Then Call Kill(strFile) End Function

Membuat Direktory

Create a new directory Private Sub Form_Load() MkDir “c:\newdir” End Sub