超碰人人人人人,亚洲AV午夜福利精品一区二区,亚洲欧美综合区丁香五月1区,日韩欧美亚洲系列

LOGO OA教程 ERP教程 模切知識(shí)交流 PMS教程 CRM教程 開(kāi)發(fā)文檔 其他文檔  
 
網(wǎng)站管理員

vb選擇文件夾

admin
2012年7月20日 14:13 本文熱度 3859
'新建一個(gè)模塊Module,復(fù)制如下代碼到里面  
Option   Explicit  
   
Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (   _  
          ByVal   hWnd   As   Long,   _  
          ByVal   wMsg   As   Long,   _  
          ByVal   wParam   As   Long,   _  
          ByVal   lParam   As   String)   As   Long  
Declare   Function   SHGetPathFromIDList   Lib   "shell32.dll"   Alias   "SHGetPathFromIDListA"   (   _  
          ByVal   pidl   As   Long,   _  
          ByVal   pszPath   As   String)   As   Long  
Declare   Function   SHBrowseForFolder   Lib   "shell32.dll"   Alias   "SHBrowseForFolderA"   (   _  
          lpBrowseInfo   As   BROWSEINFO)   As   Long  
Type   BROWSEINFO  
          hOwner   As   Long  
          pidlRoot   As   Long  
          pszDisplayName   As   String  
          lpszTitle   As   String  
          ulFlags   As   Long  
          lpfnCallback   As   Long  
          lParam   As   Long  
          iImage   As   Long  
End   Type  
Dim   xStartPath   As   String  
   
Function   SelectDir(Optional   StartPath   As   String,Optional   Titel   As   String)   As   String  
          Dim   iBROWSEINFO   As   BROWSEINFO  
          With   iBROWSEINFO  
                  .lpszTitle   =   IIf(Len(Titel),   Titel,   "【請(qǐng)選擇文件夾】")  
                  .ulFlags   =   7  
                  If   Len(StartPath)   Then  
                  xStartPath   =   StartPath   &   vbNullChar  
                  .lpfnCallback   =   GetAddressOf(AddressOf   CallBack)  
                  End   If  
          End   With  
          Dim   xPath   As   String,   NoErr   As   Long:   xPath   =   Space$(512)  
          NoErr   =   SHGetPathFromIDList(SHBrowseForFolder(iBROWSEINFO),   xPath)  
          SelectDir   =   IIf(NoErr,   Left$(xPath,   InStr(xPath,   Chr(0))   -   1),   "")  
End   Function  
   
Function   GetAddressOf(Address   As   Long)   As   Long  
          GetAddressOf   =   Address  
End   Function  
   
Function   CallBack(ByVal   hWnd   As   Long,   _  
                                      ByVal   Msg   As   Long,   _  
                                      ByVal   pidl   As   Long,   _  
                                      ByVal   pData   As   Long)   As   Long  
          Select   Case   Msg  
                  Case   1  
                          Call   SendMessage(hWnd,   1126,   1,   xStartPath)  
                  Case   2  
                          Dim   sDir   As   String   *   64,   tmp   As   Long  
                          tmp   =   SHGetPathFromIDList(pidl,   sDir)  
                          If   tmp   =   1   Then   SendMessage   hWnd,   1124,   0,   sDir  
          End   Select  
End   Function  
   
   
'在窗體中:  
dim   strDir   as   String  
strDir   =   SelectDir("C:\",   "呵呵,請(qǐng)選擇所需的文件夾")'假設(shè)初始路徑為"C:\"  
'strDir中就保存了所選的文件夾

該文章在 2012/7/20 14:13:15 編輯過(guò)
關(guān)鍵字查詢(xún)
相關(guān)文章
正在查詢(xún)...
點(diǎn)晴ERP是一款針對(duì)中小制造業(yè)的專(zhuān)業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國(guó)內(nèi)大量中小企業(yè)的青睞。
點(diǎn)晴PMS碼頭管理系統(tǒng)主要針對(duì)港口碼頭集裝箱與散貨日常運(yùn)作、調(diào)度、堆場(chǎng)、車(chē)隊(duì)、財(cái)務(wù)費(fèi)用、相關(guān)報(bào)表等業(yè)務(wù)管理,結(jié)合碼頭的業(yè)務(wù)特點(diǎn),圍繞調(diào)度、堆場(chǎng)作業(yè)而開(kāi)發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體,是物流碼頭及其他港口類(lèi)企業(yè)的高效ERP管理信息系統(tǒng)。
點(diǎn)晴WMS倉(cāng)儲(chǔ)管理系統(tǒng)提供了貨物產(chǎn)品管理,銷(xiāo)售管理,采購(gòu)管理,倉(cāng)儲(chǔ)管理,倉(cāng)庫(kù)管理,保質(zhì)期管理,貨位管理,庫(kù)位管理,生產(chǎn)管理,WMS管理系統(tǒng),標(biāo)簽打印,條形碼,二維碼管理,批號(hào)管理軟件。
點(diǎn)晴免費(fèi)OA是一款軟件和通用服務(wù)都免費(fèi),不限功能、不限時(shí)間、不限用戶(hù)的免費(fèi)OA協(xié)同辦公管理系統(tǒng)。
Copyright 2010-2025 ClickSun All Rights Reserved