lấy tên file unicode tiếng việt trong thư mục

[bj189]

Chia sẻ anh em lấy tên file dạng unicode tiếng việt trong thư mục , có gì mong anh em chỉ giáo

Option Explicit

Function GetFileNamesbyExt(ByVal FolderPath As String, FileExt As String) As Variant
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
ReDim Result(1 To MyFiles.Count)
i = 1
For Each MyFile In MyFiles
If InStr(1, MyFile.Name, FileExt) <> 0 Then
Range("a" & (i + 10)) = MyFile.Name
i = i + 1
End If
Next MyFile
ReDim Preserve Result(1 To i - 1)
GetFileNamesbyExt = Result
End Function



Sub kdskjfkjf()
Dim a
a = GetFileNamesbyExt("C:\Users\Administrator\Desktop\", "xlsx")
End Sub

 

[HeSanbi]

Bạn tham khảo thêm mã ở ứng dụng bên bài viết này:

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

Hôm nay, tôi chia sẻ với các bạn ứng dụng quản lý thư mục và tập tin được viết dựa trên bảng tính Excel và VBA, ứng dụng giúp dễ dàng tìm kiếm thư mục và tập tin, cũng như đổi tên, sao chép, di chuyển đến thư mục khác hoặc xóa tập tin rất linh hoạt. Hình ảnh ứng dụng: File ứng dụng: (***Mật...

www.giaiphapexcel.com

 

[bj189]

cảm ơn anh đã chỉ giáo , bài của anh rất rõ ràng , code chạy rất ổn , có cái là file tên tiếng việt thì chưa hiện đủ ,trình của tôi chưa đọc được hết code này , anh có thể giúp anh chị em hiện hết tên tiếng việt thì tốt quá.