• 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
User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

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

Postby clarkkent » Mon 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

Code: Select all

  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...

User avatar
nguyenbacbk
Thành viên danh dự
Thành viên danh dự
Posts: 115
Joined: Mon 27/04/2009 2:25 pm
Location: Thai Nguyen city
Contact:

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

Postby nguyenbacbk » Tue 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

User avatar
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Posts: 1641
Joined: Wed 16/04/2008 11:25 am
Location: Chợ Lách - Bến Tre
Been thanked: 31 times
Contact:

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

Postby clarkkent » Tue 28/04/2009 9:41 am

nguyenbacbk wrote: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
Attachments
path_ex.rar
(1.12 KiB) Downloaded 1047 times
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

User avatar
nguyenbacbk
Thành viên danh dự
Thành viên danh dự
Posts: 115
Joined: Mon 27/04/2009 2:25 pm
Location: Thai Nguyen city
Contact:

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

Postby nguyenbacbk » Wed 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

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

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

Postby doicanhden » Sat 19/09/2009 5:48 pm

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

User avatar
thuongall
Quản trị
Quản trị
Posts: 456
Joined: Wed 26/01/2005 8:05 am
Location: Quê hương Đồng Khởi
Been thanked: 9 times
Contact:

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

Postby thuongall » Sat 19/09/2009 8:25 pm

doicanhden wrote: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:

Code: Select all

  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

User avatar
truongphu
VIP
VIP
Posts: 4766
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 520 times

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

Postby truongphu » Sat 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

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

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

Postby doicanhden » Thu 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

User avatar
doicanhden
Thành viên tích cực
Thành viên tích cực
Posts: 160
Joined: Wed 02/09/2009 4:29 pm
Location: Tp.HCM
Has thanked: 7 times
Been thanked: 3 times
Contact:

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

Postby doicanhden » Sat 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
Posts: 12
Joined: Sun 29/04/2012 9:03 am
Been thanked: 3 times

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

Postby thanhphongialy » Tue 08/05/2012 11:35 am

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


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

Who is online

Users browsing this forum: No registered users and 1 guest