12
返回列表 上一主題 發帖

取得資料夾內所有檔案名稱

tomking

帖子
34 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
WINDOWS10 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
註冊時間
2011-4-17 
最後登錄
2020-7-16 
11# 跳轉到 »
發表於 2011-12-28 14:38 | 只看該作者
回復 10# GBKEE


    DEAR 版主,

真的不是,,,
不會依檔案名稱 順序取出...
LIKE   DOS DIR/O   

PS: GOOGLE 了, & TRY 了好久...... 還是不行..

麻煩..

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
12#
發表於 2011-12-28 15:05 | 只看該作者
回復 11# tomking
不會依檔案名稱 順序取出 是依字母數字排序嗎? 會的
超版2#的程式
  1. Option Explicit
  2. Sub get_file()
  3.     Dim Fs As String, R As Integer
  4.     Fs = Dir("d:\*.xls")
  5.     Do Until Fs = ""
  6.         R = R + 1
  7.         Cells(R, 1) = Fs
  8.         Fs = Dir
  9.     Loop
  10. End Sub
複製代碼

TOP

tomking

帖子
34 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
WINDOWS10 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
註冊時間
2011-4-17 
最後登錄
2020-7-16 
13#
發表於 2011-12-28 15:14 | 只看該作者
回復 12# GBKEE


DEAR 版主.

取出之結果..

A1315406_111007134239.txt
A1315471_111007013737.txt
A1315512_111007151654.txt
A1315514_111007143414.txt
A1315518_111006154903.txt
A1315522_111006142632.txt
A1315523_111006210301.txt
A1315524_111007050816.txt
A1315528_111007100844.txt
A1315529_111007065329.txt
A1315532_111007023917.txt
A1315533_111007080556.txt
A1315534_111007082853.txt
A1315535_111007004455.txt
A1315536_111007054150.txt
A1315537_111006232723.txt
A0316611_111004083608.txtA0316616_111005092947.txt
A0316636_111004085246.txt

真的搞不清楚..為什麼..


實在是很麻煩您...

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2011-12-28 15:35 | 只看該作者
回復 13# tomking
A0316611_111004083608.txt
A0316636_111004085246.txt
A1315406_111007134239.txt
A1315536_111007054150.txt
A1315537_111006232723.txt
這是我得到的排序  ,是你電腦怪怪的

TOP

tomking

帖子
34 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
WINDOWS10 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
註冊時間
2011-4-17 
最後登錄
2020-7-16 
15#
發表於 2011-12-28 16:39 | 只看該作者
回復 14# GBKEE


    DEAR 版主,

   好像找到問題了,,
  因取資料的位置,是網路磁碟機 ,,而它的系統是 LINUX  .

  ths..

TOP

mybubble9987

帖子
10 
主題
2 
精華
0 
積分
12 
點名
0  
作業系統
Win7 
軟體版本
Office2013 
閱讀權限
10 
性別
女 
註冊時間
2019-4-13 
最後登錄
2021-10-15 
16#
發表於 2019-4-17 15:47 | 只看該作者
回復 3# stephen

請問一下，有只取出名稱，不取出附檔名.jpg的用法嗎?
因為我參考了你的程式改成自己的用法，但檔名出來之後連副檔名都會一起跑出來~
謝謝協助!
SofyShih

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
12
返回列表 上一主題