PGCafe
Lv 5
PGCafe 發問時間: 電腦與網際網路程式設計 · 1 0 年前

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

在VB6.0裡!!怎麼利用 app.path讀到程式放置的目錄和利用 dir 確認檔案是否存在

能越詳細越好!!最好能有個範例!!沒有也沒關係啦!!能懂就好了!!~~

已更新項目:

Do While aFile "" '顯示到沒有任何檔案為止

Print aFile

FileCnt = FileCnt + 1

aFile = Dir() '這樣就可以繼續讀取前一次所指定的檔案... _

(只有在使用萬用字元'*,?'時有效)

Loop

不太懂,可以詳細一點嗎!!!

對了~~還有...只有在使用萬用字元時有效是啥麼意思!!

還要有啥元件嗎??

8 個解答

評分
  • 樂財
    Lv 5
    1 0 年前
    最佳解答

    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為空的為止

  • 匿名使用者
    6 年前
  • 匿名使用者
    6 年前

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

    [電子遊戲]

    拉霸、水果盤、7PK、5PK

    [運彩遊戲]

    棒球、籃球、足球、網球、冰球、各種體育經典賽事

    [真人遊戲]

    百家樂、21點、骰寶、輪盤、牌九、三公、輪盤、翻攤、牛牛、二八杠

    [對戰遊戲]

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

    [彩球遊戲]

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

    [優惠活動]

    1. 新舊會員儲值就送500點

    2. 真人百家樂彩金等你拿

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

    歡迎免費體驗試玩!!

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

  • 匿名使用者
    6 年前

    台中網路行銷首選-。。眾智數位科技網路行銷。。

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

  • 您覺得這個回答如何?您可以登入為回答投票。
  • 匿名使用者
    6 年前

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

    http://phi008780416.pixnet.net/blog

  • 匿名使用者
    7 年前

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

    運動遊戲

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

    即時遊戲

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

    對戰遊戲

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

    電子遊戲

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

    彩球遊戲

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

    最新優惠活動

    1. 運動遊戲連過5關,彩今再加碼10%

    2. 新會員加入,有機會獲得500元禮券與精美讀卡機

    3. 遊戲積分可兌換汽機車、3C、精品等多種大獎

    免費線上體驗試玩喔~!

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

  • 匿名使用者
    7 年前

    還是要去 http://aaashops。com 品質不錯,老婆很喜歡!

    仈值佞儒唏

  • 1 0 年前

    我的好怪...

    程式:

    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

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

還有問題?馬上發問,尋求解答。