Make your own free website on

[an error occurred while processing this directive]
Private Declare Function CreateDirectoryEx Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As Any) As Long
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'Create a new directory
    CreateDirectoryEx "C:\Windows", "C:\KPD-Team", ByVal 0&
    'remove the directory
    RemoveDirectory "C:\KPD-Team"
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at