Access Files Collection using File Object :

Dim objCurrDir As DirectoryInfo
Dim arrFiles() As FileInfo, tempFile As FileInfoobjCurrDir = New DirectoryInfo(sPPhyPath)
arrFiles = objCurrDir.GetFiles(iFormCode & ".*")

For Each tempFile In arrFiles
    If File.Exists(tempFile.Name) Then
        — your code —
    End If

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.