返回列表 上一主題 發帖

[發問] With Application.FileSearch 無法使用

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
2  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2025-6-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-26 14:55 | 只看該作者

[發問] With Application.FileSearch 無法使用

Dear 大大,
   之前用office 97時我都使用With Application.FileSearch找檔案
   今天用不同的office版本才發現office改版後己經不能再用了,
    請問各位前大大,以下程式碼應該怎麼修改才好?


  With Application.FileSearch
    .NewSearch
    .LookIn = FilePath
    .Filename = ".txt"
    .SearchSubFolders = False
    .Execute
   
    For i = 1 To .FoundFiles.Count
     Cells(RowIdx, 1) = FileDateTime(.FoundFiles(i))
     Cells(RowIdx, 1).Select
      FName = .FoundFiles(i)
      Cells(RowIdx, ColIdx).Select
      
      Open FName For Input As #1
       .
       .
收藏 分享

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
2#
發表於 2010-6-26 16:05 | 只看該作者
Sub 文件()
Set file = CreateObject("scripting.filesystemobject")
For Each fils In file.getfolder("c:\").Files
Filename = Filename & fils.Name & Chr(13)
Next
MsgBox Filename
End Sub
看看这个
学习

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2010-6-26 19:32 | 只看該作者
回復 1# cw3076


    MyPath = "d:\test\"
    MyFile = Dir(MyPath & "*.Txt")
    RowIdx = 1
    Do While MyFile <> ""
        Cells(RowIdx, 1) = FileDateTime(MyPath & MyFile)
        Cells(RowIdx, 1).Select
        Open MyPath & MyFile For Input As #1
        ''
        ''
        ''
        MyFile = Dir
        RowIdx = RowIdx + 1
    Loop

TOP

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
2  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2025-6-16 
4#
發表於 2010-6-27 00:55 | 只看該作者
感謝 wqfzqgk & GBKEE版大的指導,

   GBKEE 版大所提供的正是我想要的~~ 萬分感謝

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題