Guidance
指路人
g.yi.org
software / rapidq / Examples / File & Directory / Create Folder / createfolder.obj.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2024-3-29  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:45:22