• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Xác định là File hay Folder từ một Path cho trước

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Xác định là File hay Folder từ một Path cho trước

Gửi bàigửi bởi truongphu » T.Hai 26/05/2008 8:46 am

Thủ thuật: Xác định là File hay Folder từ một Path cho trước
Tác giả: anhtuyenbk, truongphu
Mô tả: Xác định là File hay Folder từ một Path cho trước


gửi bởi anhtuyenbk vào ngày Thứ 2 28/04/2008 3:29 pm

Mã: Chọn hết

  1. Public Function CheckFolderFileType(PathFile As String) As String
  2.     'Khong ton tai
  3.     If Dir(PathFile) = "" And Dir(PathFile, vbDirectory) = "" Then
  4.         CheckFolderFileType = "Not Exist"
  5.     Else
  6.         'Day la File
  7.         If Dir(PathFile) <> "" Then
  8.             CheckFolderFileType = "IsFile"
  9.         Else  'Day la Folder
  10.             CheckFolderFileType = "IsFolder"
  11.         End If
  12.     End If
  13. End Function


gửi bởi truongphu vào ngày Thứ 2 28/04/2008 3:22 pm

Mã: Chọn hết

  1. Private Function ReportFF(Path$) As String
  2.   Dim fso As Object:   Set fso = CreateObject("Scripting.FileSystemObject")
  3.   If (fso.FileExists(Path)) Then
  4.     ReportFF = "FileExists"
  5.   ElseIf (fso.FolderExists(Path)) Then
  6.     ReportFF = "FolderExists"
  7.   Else
  8.     ReportFF = "FolderNOTExists"
  9.   End If
  10. End Function


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách