• 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

Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

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
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi clarkkent » T.Hai 23/03/2009 1:40 pm

Thủ thuật: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa
Tác giả: sưu tầm
Mô tả: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa


Vấn đề này đã có rồi, tổng hợp lại thui

Mã: Chọn hết

  1. Public Function FExists(OrigFile As String)
  2. Dim fs
  3. Set fs = CreateObject("Scripting.FileSystemObject")
  4. FExists = fs.fileexists(OrigFile)
  5. End Function
  6. 'Returns a boolean - True if the file exists
  7.  
  8.  
  9. Public Function DirExists(OrigFile As String)
  10. Dim fs
  11. Set fs = CreateObject("Scripting.FileSystemObject")
  12. DirExists = fs.folderexists(OrigFile)
  13. End Function
  14. 'Returns a boolean - True if the folder exists
  15.  
  16.  
  17. Public Function DExists(OrigFile As String)
  18. Dim fs, d
  19. Set fs = CreateObject("Scripting.FileSystemObject")
  20.     If fs.driveexists(OrigFile) = True Then
  21.     Set d = fs.getdrive(OrigFile)
  22.     DExists = 1
  23.         If d.isready = True Then
  24.         DExists = 2
  25.         Exit Function
  26.         End If
  27.     Else
  28.     DExists = 0
  29.     End If
  30. End Function
  31. 'Code to check the state of a drive (returns 0 if the drive does not exist, 1 if the drive exists but contains no media, 2 if the drive exists and contains media.  Hard-drives will always return 2)
  32.  
  33. Private Sub Command1_Click()
  34. MsgBox FExists("E:\aNDy desiGn\VINH TAI\VT_090323.cdr")
  35. MsgBox DirExists("E:\aNDy desiGn\VINH TAI\")
  36. MsgBox DExists("C:\")
  37. End Sub
  38.  


• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
nguyenbacbk
Thành viên danh dự
Thành viên danh dự
Bài viết: 115
Ngày tham gia: T.Hai 27/04/2009 2:25 pm
Đến từ: Thai Nguyen city
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi nguyenbacbk » T.Ba 28/04/2009 7:03 am

Thank clarkkent !
Tôi đã đọc tài liệu mà bác gửi cho tôi về câu hỏi mà tôi đang quan tâm. Tôi cảm ơn vì sự giúp đỡ của bác.
Bây giờ tôi muốn kiểm tra trên toàn ổ cứng mà không phải gán trước đường dẫn thì phải làm như thế nào? (nghĩa là khi lưu file tôi mở hộp thoại chọn đường dẫn khi đó mới kiểm tra bằng cách đánh tên vào.nếu chưa có thì tạo file mới.ngược lại thì báo đã tồn tại file).mong bác chỉ giúp.
Bằng ĐH là chứng nhận biết tự học, lấy bằng xong mới học ĐH

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi clarkkent » T.Ba 28/04/2009 9:41 am

nguyenbacbk đã viết:Thank clarkkent !
Tôi đã đọc tài liệu mà bác gửi cho tôi về câu hỏi mà tôi đang quan tâm. Tôi cảm ơn vì sự giúp đỡ của bác.
Bây giờ tôi muốn kiểm tra trên toàn ổ cứng mà không phải gán trước đường dẫn thì phải làm như thế nào? (nghĩa là khi lưu file tôi mở hộp thoại chọn đường dẫn khi đó mới kiểm tra bằng cách đánh tên vào.nếu chưa có thì tạo file mới.ngược lại thì báo đã tồn tại file).mong bác chỉ giúp.

ví dụ thử, bạn mò thêm
Tập tin đính kèm
path_ex.rar
(1.12 KiB) Đã tải 904 lần
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
nguyenbacbk
Thành viên danh dự
Thành viên danh dự
Bài viết: 115
Ngày tham gia: T.Hai 27/04/2009 2:25 pm
Đến từ: Thai Nguyen city
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi nguyenbacbk » T.Tư 29/04/2009 7:36 am

Thank clarkkent !
Mấy cái bác gửi tôi đang cần. Cảm ơn vì sự giúp đỡ của bác
Bằng ĐH là chứng nhận biết tự học, lấy bằng xong mới học ĐH

Hình đại diện của người dùng
doicanhden
Thành viên tích cực
Thành viên tích cực
Bài viết: 160
Ngày tham gia: T.Tư 02/09/2009 4:29 pm
Đến từ: Tp.HCM
Has thanked: 7 time
Been thanked: 3 time
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi doicanhden » T.Bảy 19/09/2009 5:48 pm

dùng ham Dir() có phải nhanh hơn ko
Câu Lạc Bộ VB

Hình đại diện của người dùng
thuongall
Quản trị
Quản trị
Bài viết: 455
Ngày tham gia: T.Tư 26/01/2005 8:05 am
Đến từ: Quê hương Đồng Khởi
Been thanked: 9 time
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi thuongall » T.Bảy 19/09/2009 8:25 pm

doicanhden đã viết:dùng ham Dir() có phải nhanh hơn ko

Máy của bạn không biết sao, chứ máy nhà tôi code như sau:

Mã: Chọn hết

  1. Private Sub Form_Load()
  2.     MsgBox Dir("")
  3. End Sub

Thì nó hiện ra "CVPACK.EXE", từ đó không còn dám dùng hàm Dir để kiểm tra sự tồn tại của tập tin nữa. :D

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

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi truongphu » T.Bảy 19/09/2009 9:31 pm

Bộ sưu tập Dir ""
Máy tôi: "VB6.lnk"
:D

---------
Hồi nãy do project chưa lưu
Giờ lưu rồi, có kết quả: "Form1.frm"

thì ra có liên quan ít nhiều Vb6
mà cvpack.exe cũng nằm trong vb98
o0o--truongphu--o0o

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

Hình đại diện của người dùng
doicanhden
Thành viên tích cực
Thành viên tích cực
Bài viết: 160
Ngày tham gia: T.Tư 02/09/2009 4:29 pm
Đến từ: Tp.HCM
Has thanked: 7 time
Been thanked: 3 time
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi doicanhden » T.Năm 01/10/2009 7:03 pm

vậy trước khi kiểm tra bằng hàm dir() thì dùng if lọai trừ khả năng là vbNullString
Câu Lạc Bộ VB

Hình đại diện của người dùng
doicanhden
Thành viên tích cực
Thành viên tích cực
Bài viết: 160
Ngày tham gia: T.Tư 02/09/2009 4:29 pm
Đến từ: Tp.HCM
Has thanked: 7 time
Been thanked: 3 time
Liên hệ:

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi doicanhden » T.Bảy 22/05/2010 4:35 pm

Giờ Thì Em Dùng HÀm Này , Mọi Người Xem Coi Được Không

  1. Private Function Exist(ByVal path As String) As Boolean
  2.   On Error GoTo Lag
  3.   Call GetAttr(path)
  4.   Exist = (Err.Number = 0)
  5.   Exit Function
  6. Lag:
  7.   Exist = False
  8. End Function
Câu Lạc Bộ VB

thanhphongialy
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: CN 29/04/2012 9:03 am
Been thanked: 3 time

Re: Kiểm tra sự tồn tại của tập tin, thư mục, ổ đĩa

Gửi bàigửi bởi thanhphongialy » T.Ba 08/05/2012 11:35 am

chân thành cảm ơn!


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.0 khách