返回列表 上一主題 發帖

如何檢查指定資料夾是否存在

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-3-22 12:30 | 只看該作者

如何檢查指定資料夾是否存在

請問如何檢查指定資料夾是否存在, 若果不存在時, 則新增該資料夾
請指教
收藏 分享

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
272  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
6#
發表於 2012-3-26 21:15 | 只看該作者
回復 5# GBKEE


    如果不用搜尋的方式
而是由使用者告知路徑在那的話呢
會不會容易解決
等於請使用者告知id檔在那
如果有
就可以使用
如果沒有就在30秒後關閉檔寀
jeason

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-3-26 15:23 | 只看該作者
回復 3# brabus
你的問題用 vba 有點難度,當搜尋到系統資料夾會出錯,我能力有限,尚須高手相助

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
4#
發表於 2012-3-26 12:41 | 只看該作者
謝謝 GBKEE
你已解答了我過去很多問題
THANK YOU

TOP

brabus

帖子
171 
主題
33 
精華
0 
積分
433 
點名
272  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2010-6-8 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章2011兔年全勤獎章
3#
發表於 2012-3-24 21:55 | 只看該作者
回復  enoch
GBKEE 發表於 2012-3-22 15:22


請問一下
如果我給員工一個檔,
檔名是他的身份證字號.id (比方 M123456789.id)
這個檔員工可以在自己的電腦中任意移動
如果我要控制電腦中有這個檔才可以開啟檔案否則就關閉檔案的話
該怎麼寫程式
謝謝指正
jeason

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-3-22 15:22 | 只看該作者
回復 1# enoch
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlFolder As String
  4.     xlFolder = "D:\MyTest"       '指定資料夾
  5.     If Dir(xlFolder, vbDirectory) = "" Then MkDir xlFolder
  6. End Sub
複製代碼

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題