2013-06-19 07:45

     DIM hwnd AS LONG
     DIM folder$ AS STRING
     DECLARE FUNCTION SHCreateDirectoryEx LIB "shell32" Alias_
      "SHCreateDirectoryExA" (hwnd AS LONG,pszPath AS STRING, BYVAL psa AS LONG) AS LONG
     DECLARE SUB CreateNewFolder(directory$ AS STRING)




     SUB CreateNewFolder (hwnd AS LONG,folder$ AS STRING)
      IF LEN (folder$)>0 THEN
       SHOWMESSAGE "New Folder Created"+ CHR$(13)+folder$
       SHCreateDirectoryEx (hwnd, folder$, BYVAL 0&)
      END IF
     END SUB

2013-06-19 07:45