[發問] 判斷檔案存在否? 結果為&quot;False不存在&quot; 的檔案輸出文字檔案

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

2^#

發表於 2011-8-4 07:12 | 顯示全部帖子

回復 2# chin15

Dear
如果還是看不懂請回復。
非常感謝~

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

3^#

發表於 2011-8-5 11:45 | 顯示全部帖子

本帖最後由 webbliu 於 2011-8-5 11:57 編輯

回復 4# elinbit

Dear 大大謝謝~
  請問~~
欲執行時出現 open 未宣告"  請問該值要宣告甚麼?
open FileNum 也是

Dear 大大順便請教

如果是這樣

目的還是在找出不存在的"路徑檔案"
Apath 是從Table 讀出的"路徑檔案"，很多筆。
下面兩段程式我在做比較後，  小於10byte的檔案都無法輸出至.txt。
請問該如何修正
非常感謝

Dim Apath as string
Dim R As System.IO.FileInfo
For i = 1 To n
R = My.Computer.FileSystem.GetFileInfo("Apath")
If R.Length < 10 Then '請問這裡的R.length 改怎麼寫呢
Console.writeline(size + "小於" + Apath)
End If

複製代碼

Dim size as long
Dim Apath as string
For i = 1 To n
On Error Resume Next
size = Filelen(Apath)
If size < 10 Then
Console.writeline(size + "小於" + Apath)
End If

複製代碼

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

4^#

發表於 2011-8-6 12:06 | 顯示全部帖子

回復 6# elinbit

Dear 大大
MSDN 這段我看不懂
能否請你指導，我該如何把 exists 判斷不存在的檔案+路徑輸出到文字?

Dim path as string
Dim atxt as new system.Io.StreamWriter("C:\exists.txt")
If system.io.file.exits("path") Then
'判斷不存在輸出到文字檔案.txt

複製代碼

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

5^#

發表於 2011-8-8 11:19 | 顯示全部帖子

回復 8# elinbit

Dear 大大

我想請問要取得檔案容量資訊，是不是要用 Fuction GetFilesize

還是可以直接 getfilesize
這是我寫的一段，不知道這樣做對不對?

Private Function GetFileSize(ByVal p1 As String) As Integer
Dim myfile As New FileInfo("C:\H.mov")
Dim filesize As Long = myfile.Length
Return filesize
End Function

複製代碼

原本是打算判斷FileExists 如果檔案不存在，就列出目錄(包含路徑)......
但怎麼樣都做不到...我太遜了。

後來是打算用比較檔案容量大小，小於0的檔案列出目錄也包含檔案路徑......
但不知道為何，無論大於小於0都有被列出......。

現在遇到瓶頸了，還請大大指教。
謝謝大大!

帖子: 46
主題: 18
精華: 0
積分: 67
點名: 0
作業系統: WINXP,win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 肚子裡
註冊時間: 2010-5-22
最後登錄: 2011-10-27

6^#

發表於 2011-8-10 11:29 | 顯示全部帖子

本帖最後由 webbliu 於 2011-8-29 11:30 編輯

回復 10# elinbit

Dear 大大
我已經解決，感謝你的指導&建議
非常謝謝
我的解法如下~

Dim sizefile As System.IO.FileInfo
Dim apath As Sting
Dim N As Integer
Dim size =system.IO.Fileinfo
For i =1 to N
sizefile = My.Computer.FileSystem.GetFileInfo(apath)
On Error Resume Next
If sizefile.Length < 0 Then
file.WriteLine("miss"+ ": " + apath)
End If
'Else
ProgressBar1.Value = Int(i / n * 100)
ProgressBar1.Refresh()
Next

複製代碼