返回列表 上一主題 發帖

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

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
0  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2025-10-23 
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
       .
       .
收藏 分享

cw3076

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

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

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題