Validate Filename

This function takes a filename, and determines if it exists in the current
directory. Make sure the directory you want to check in is set by doing a
Chdir "c:\working directory\". Also, this function only checks for nomal
files, it can easily be modified to check hidden files, system files, or even
subdirectories. To use this funciton:
If IsFile("test.txt") then
'// do stuff
else
'// do other stuff
end if
(Options)
%Include "lsconst"

Function IsFile(FileName As String) As Variant

'*******************************************************************************
***
'* Determines if filename passed exists in the current working directory

'*******************************************************************************
***
'********************
'* Local Variables
'********************
Redim File(0) As Variant '// Will hold all files in current directory
Dim i As Integer '// used for looping
Dim temp As String
'******************************************************
'* First thing we need to do is set IsFile to false
'******************************************************
IsFile = False
'******************************************************************************
'* First thing we need to do is get a listing of all files in the directory
'******************************************************************************
File(0) = Dir( ( Curdir() & "\*.*" ) , ATTR_NORMAL)
i = 0
Do While File(i) <> ""
Redim Preserve File(Ubound(File) + 1)
i = i + 1
File(i) = Dir()
Loop
'************************************************************************
'* Now go through array and see if filename passed is in there
'************************************************************************
For i = 0 To Ubound( File )
If Ucase( File(i) ) = Ucase( FileName ) Then
'// We found a match, set IsFile to true and exit loop
IsFile = True
Exit For
End If
Next

End Function
This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.uk

Close