VB6.0怎麼利用app.path讀到程式放置的目錄...

Question

在VB6.0裡!!怎麼利用 app.path讀到程式放置的目錄和利用 dir 確認檔案是否存在
能越詳細越好!!最好能有個範例!!沒有也沒關係啦!!能懂就好了!!~~

Do While aFile "" '顯示到沒有任何檔案為止
Print aFile
FileCnt = FileCnt + 1
aFile = Dir() '這樣就可以繼續讀取前一次所指定的檔案... _
(只有在使用萬用字元'*,?'時有效)
Loop

不太懂，可以詳細一點嗎!!!
對了~~還有...只有在使用萬用字元時有效是啥麼意思!!
還要有啥元件嗎??

Answer 1

Private Sub Command1_Click()
Dim aFile As String, FileCnt As Long
Print "目前的目錄為" & App.Path '就直接用就可以了
aFile = Dir(App.Path & "\*.exe") '取得目前目錄中是否有任何執行檔(*.exe)
If aFile = "" Then '如果目前目錄中沒有任何執行檔的話
Print "No Any Executable Files" '顯示沒有檔案
Else '否則就把檔案顯示出來
FileCnt = 0
Do While aFile <> "" '顯示到沒有任何檔案為止
Print aFile
FileCnt = FileCnt + 1
aFile = Dir() '這樣就可以繼續讀取前一次所指定的檔案... _
(只有在使用萬用字元'*,?'時有效)
Loop
Print "全部有 " & FileCnt & " 個檔案"
End If
End Sub
這樣了解嗎?

2006-08-11 10:31:37 補充：
這個Loop是發揮了Dir()的功能除了可以檢查有沒有要查的檔案之外, 也可以把它一一例舉出來的意思...第二次Dir(), 就是裡面沒有任何參數, 就會再執行一次前一次動作, 不過取得的是下一個檔案, 所謂的萬用字元就是指"*.exe"中的星號, 這個意思就是*(星號)是任何字元..., 如此以來就是所有附加檔名為.exe的所有檔案, 這樣就表示用Dir()得到的檔案個數就會多於一個, 因此要用這樣的Loop把它一一例舉出來.

2006-08-11 10:35:44 補充：
其中, FileCnt只是用來計算有多少檔案, 這個應該沒問題吧?另外, 萬用字元還有一個成員, 就是"?"(問號), 用法: 當指定為Dir(App.Path & "\a??.exe")的時候... 就表示要找 "a"開頭的三個碼名稱的執行檔,就是?(問題)可以是任何字元, 所以 a00.exe, a01.exe a02.exe...等等都會被例舉出來.

2006-08-11 10:39:42 補充：
Do While <條件>...Loop這個語法也說明一下...意思就是當While後面的<條件>滿足時會一直跑LoopDo Until <條件>...Loop的話, 就是指執行Loop到滿足<條件>為止.所以Do While aFile<>"", 就是指aFile不為空白時一直執行Loop, 直到aFile為空的為止

Answer 2

這有類似的

▶▶http://qoozoo2014091500.pixnet.net/blog

Answer 3

＊ ***** http://***** ＊

[電子遊戲]
拉霸、水果盤、7PK、5PK

[運彩遊戲]
棒球、籃球、足球、網球、冰球、各種體育經典賽事

[真人遊戲]
百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

[對戰遊戲]
台灣麻將、德州撲克、骰盅吹牛、四支刀、鬥地主、十三支、二八槓、暗棋、接龍

[彩球遊戲]
香港六合、台灣樂透、今彩539、樂合彩、大陸時時彩、基諾彩、北京賽車、賽狗、賽馬、指數

[優惠活動]
1. 新舊會員儲值就送500點
2. 真人百家樂彩金等你拿
***** http://*****
歡迎免費體驗試玩!!

線上影片直播、正妹圖、討論區免費註冊 ~

Answer 4

台中網路行銷首選-。。眾智數位科技網路行銷。。
你知道嗎? 網站訪問流量的第一來源竟是搜尋引擎之網站排名SEO!!企業該如何做好部落格行銷呢?知識家行銷呢?網站排名呢?網路行銷呢?全方位的網路行銷能帶來哪些好處呢?如何在茫茫人海中對你有印象?對你的產品有印象?熟悉你的品牌?要如何在琳瑯滿目的商品購買你?決定買你?喜歡持續購買你呢?要如何在眾網路平台中看見你?釘睛於你呢?品牌忠誠於你呢?網路無所不在，看不見你的訊息都難!眾智數位科技具有網路行銷十多年的經驗!歡迎您隨時來電詢問~。。眾智數位科技有限公司。。SEO_line_App行銷(眾智數位)

Answer 5

下面的網址應該對你有幫助

http://phi008780416.pixnet.net/blog

Answer 6

線上遊戲天堂 http://ts999.tw

運動遊戲
實況棒球、籃球、足球、冰球、網球等多種經典賽事

即時遊戲
百家、21點、牌九、二八杠、骰寶、龍虎、輪盤、牛牛、番攤

對戰遊戲
麻將、德州撲克、二八杠、吹牛、鬥地主、13支、暗棋、接龍

電子遊戲
5PK、7PK、水果盤遊戲、5輪遊戲、極限飆速、趙雲救主、西遊戲、金瓶梅、中國美人、英雄

彩球遊戲
大樂透、六合、時時彩、今彩539、3星彩、4星彩

最新優惠活動
1. 運動遊戲連過5關,彩今再加碼10%
2. 新會員加入,有機會獲得500元禮券與精美讀卡機
3. 遊戲積分可兌換汽機車、3C、精品等多種大獎

****體驗試玩喔~!
線上遊戲天堂 http://ts999.tw

Answer 7

還是要去 http://aaashops。com 品質不錯，老婆很喜歡!
仈值佞儒唏

Answer 8

我的好怪...

程式:
Private Sub Form_Activate()
a = Dir(App.Path, 31)
Text1.Text = App.Path
Do While a <> ""
Text1.Text = Text1.Text & Chr(13) & Chr(10) & a
a = Dir()
Loop
End Sub

結果:
C:\Program Files\Microsoft Visual Studio\VB98繁
VB98繁

2007-08-09 14:45:46 補充：
程式:
Private Sub Form_Activate()
a = Dir("*.EXE", 31)
Text1.Text = App.Path
Do While a <> ""
Text1.Text = Text1.Text & Chr(13) & Chr(10) & a
a = Dir()
Loop
End Sub

結果:
C:\Program Files\Microsoft Visual Studio\VB98繁
C2.EXE
CVPACK.EXE

反而才是我要的結果...