Lấy tên file trong thư mục chép vào file Notepad?

Chia sẻ bởi:hands

★★★★★

‹ Lấy danh sách tên file có trong... Tự động cập nhật tên tập tin... ›

Quảng cáo

Em xin hỏi có cách nào tự động chép toàn bộ tên file (có cả phần mở rộng càng tốt) trong 1 thư mục vào 1 file List.txt không? Vì em có rất nhiều file nhưng cứ copy tên hoài thì mệt quá? Vậy xin hỏi có ai từng biết cách làm không? Em xin thọ giáo với! Thanks.

Bạn phải nói rõ bạn đang đứng ở đâu để chép: ví dụ: Word, Excel, Access, Window Explorer, v.v….

Dạ, Excel hoặc Explorer đều được! Bác biết cách nào thì giúp giùm em. Em chỉ cần file List.txt (Trong file có tất cả các tên file trong 1 thư mục mình muốn. Ví dụ: D:TamThoi*)

Như vậy trong thư mục bạn muốn, có những thư mục con nữa thì bạn muốn hiển thị như thế nào? hiển thị chỉ thư mục con hay hiển thị chi tiết đường dẫn đến file cuối cùng!

Cái này em chưa nghĩ đến, nhưng nếu có dòng tên thư mục đó (bắt đầu từ thư mục gốc ban đầu) bên trên rồi đến tên file của riêng thư mục con đó bên dưới thì càng tốt. Ví dụ: D:TamThoi Bang.xls Tuyet.xls Van.xls … D:TamThoi6-09-2008 Binh.doc Nguyen.xls … D:TamThoi6-09-2008Binh Chitiet.xls …

Tạm thời mình chỉ có khả năng xuất ra những file trong folder thôi, còn chi tiết cho foder con thì chưa làm được. Bạn xem file đính kèm. Bên dưới là đoan code thực hiện.

Sub GetFile()
Dim mPath, nFile, mFolder As String, nRow As Integer
mPath = InputBox("NHap ten duong dan, vi du nhu D:Report")
'mPath = "D:WorkSpaceDuAnTrienKhai"
If Right(mPath, 1) <> "" Then mPath = mPath & ""
nRow = 1
'=================================================
'Kiem Tra su ton tai cua Sheet("TEMP"):
Dim Zs As Object
On Error Resume Next
Set Zs = ActiveWorkbook.Sheets("TMP")
If Err = 0 Then
Sheets("TMP").Cells.Delete
Else
Sheets.Add
ActiveSheet.Name = "TMP"
End If
Worksheets("TMP").Range("A1").Value = mPath
'=================================================
'Ghi vao sheet tam truoc khi xuat ra file txt:
With Worksheets("TMP").Range("A1")
nFile = Dir(mPath & "*.*", vbSystem)
Do While nFile <> ""
nFile = Dir
.Offset(nRow, 0).Value = nFile
nRow = nRow + 1
Loop
End With
'=================================================
'Xuat ra File txt:
Dim MyPath As String, MyFileName As String
Dim NewBook As Workbook
MyPath = "D:"
MyFileName = InputBox("Nhap ten file can luu:", "Export from excel to text")
Sheets("TMP").Activate
ActiveSheet.Copy
ActiveWorkbook.SaveAs _
Filename:=MyPath & MyFileName & ".txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWorkbook.Close True
End Sub