[VB.NET] การตรวจสอบว่าไฟล์ได้ถูกเปิดใช้งานอยู่หรือไม่

thongkorn

โค้ดขนาดเล็กๆนี้ ก็คงมีประโยชน์บ้างไม่มากก็น้อย สำหรับแอดมินเอามาแปะไว้กันลืมครับ 5555+

1. Imports System.IO
   
2.     ' / --------------------------------------------------------------------------
   
3.     ' / Check File in use or open.
   
4.     Public Function FileInUse(ByVal sFile As String) As Boolean
   
5.         FileInUse = False
   
6.         If System.IO.File.Exists(sFile) Then
   
7.             Try
   
8.                 Using F As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
   
9.                     '// FileInUse = False
   
10.                 End Using
    
11.             Catch
    
12.                 FileInUse = True
    
13.             End Try
    
14.         End If
    
15.     End Function

คัดลอกไปที่คลิปบอร์ด