返回列表 上一主題 發帖

[發問] getFolder如何取得到第二層資料夾

z15935712

帖子
10 
主題
4 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
10 
註冊時間
2014-8-21 
最後登錄
2016-4-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-2 13:16 | 顯示全部帖子

[發問] getFolder如何取得到第二層資料夾

我想請問高手們，目前以下程式碼只能做到讀取一層資料夾的讀取而已，請問哪裡寫錯了嘛
我想要可以讀取我選擇好的目錄下所有的資料夾，可是不知道哪裡寫錯了
已經爬文許久，但始終無法找到答案，請高手們指點迷津，感恩
  1. Set oexcel = CreateObject("Excel.Application")
  2.     Dim objF As Object  '定義開檔物件
  3.     Dim strFoldersName As String    '定義資料夾名稱為字串型態
  4.     Dim strAllName As String   '定義所有名稱
  5.     'Dim objFs2 As Scripting.FileSystemObject
  6.    
  7.     Dim fObj2, fc2
  8.     Dim objF2 As Object
  9.    
  10.    
  11.     Dim strFolderPath As String
  12.     Dim strGetFilePath As String
  13.     strGetFilePath = File1.Path
  14.    
  15.     strFolder = Text1.Text
  16.    
  17.     Set gobjFs = CreateObject("Scripting.FileSystemObject")
  18.     Set objF = gobjFs.GetFolder(strGetFilePath)
  19.     Set fc = objF.SubFolders
  20.    
  21.     For Each F1 In fc
  22.         
  23.      
  24. 'Set oexcel = CreateObject("Excel.Application")

  26. MyPath = F1


  29. i = 0


  32. MyFile = Dir(MyPath & "\*_1.csv")  '要開啟的資料檔名


  35.                            
  36. 'g = Mid(MyFile, 1, 18)

  38.     Do While Len(MyFile) > 0
  39.    
  40.    
  41.    
  42.     Call class_NT
  43.     Application.DisplayAlerts = False  ' 關閉警告訊息
  44.    
  45.     Application.DisplayAlerts = True   ' 再打開警告訊息
  46.     i = i + 1
  47.     MyFile = Dir                                                     '下一筆
  48.     Loop
  49.     Next
複製代碼
收藏 分享

        靜思自在 : 欣賞別人就是莊嚴自己。
返回列表 上一主題