Giúp đỡ xóa file có đường dẫn là tiếng việt

[ehero]

Em có một thắc mắc nhờ các bác giải giúp ạ
Em có một bảng dưới đây

Em viết code xóa file khi chọn ở ô thư mục như sau:

Tuy nhiên bị lỗi

em kiểm tra bằng msgbox đường dẫn thì đường dẫn file tiếng việt bị lỗi:

Vậy mong mọi người xem giúp em làm thế nào để không bị lỗi nữa ạ. Em xin cám ơn!

 

[johnnylinhanh]

Đầu tiên bạn phải kiểm tra file tồn tại không đã => sau đó mới tiến hành xóa file

Sub deleteFile()
Dim Str$
Str = sheet1.cells(Activecell.Row, Activecell.Column +1)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Str) then
    fso.DeleteFile Str
    Msgbox "da xoa"
Else
    Msgbox "File khong ton tai"
End if
End sub

 

[ehero]

Đầu tiên bạn phải kiểm tra file tồn tại không đã => sau đó mới tiến hành xóa file

Sub deleteFile()
Dim Str$
Str = sheet1.cells(Activecell.Row, Activecell.Column +1)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Str) then
    fso.DeleteFile Str
    Msgbox "da xoa"
Else
    Msgbox "File khong ton tai"
End if
End sub

Em cám ơn bác nha, hoạt động tốt rồi ạ