/ Snippet Library - View Code

Visual Basic / File & Disk Operations / checks if a file contains data

Snippet details

ID: 71

Viewed: 1168

Added: 2002-01-31

Version:

Snippets in this catagory
Show Printable Version

Function that checks if a file contains any data.
If file doesnt exist, it also returns false.

General Details

Snippet uploaded by: peet

Email : peet@pvp.no

Snippet By: peet

Snippet By:	peet
Declarations
Highlight Allnone
Code
Highlight AllPrivate Function FileContainsData(sFileName As String) As Boolean Dim s As String If Dir(sFileName, vbHidden + vbReadOnly + vbSystem) <> "" Then Open sFileName For Binary As #1 s = Input(LOF(1), 1) Close #1 If Len(s) Then FileContainsData = True Else FileContainsData = False End If Else FileContainsData = False End If End Function 'usage Private Sub Command1_Click() MsgBox FileContainsData("C:Autoexec.bat") End Sub

No Reviews to show