FileSystemWatch er: Fix for lowercase?

[Paul]

Hi,
As most people who use the FileSystemWatch er know, it returns lowercase text
for some strange reason. I know there's a workaround for the lowercase the
FileSystemWatch er returns by by passing the 'FullPath' property into the
constructor of a DirectoryInfo Class and reading the 'Name' property but I'm
not sure how or where I'd fit that into my code.
Could someone point me in the right direction?

Cheers,
Paul

Code follows........ ..

Private Sub LogChange(ByVal source As Object, ByVal e As
FileSystemEvent Args)
Dim strDestDir As String = "D:\"
Dim strString As String

Select Case e.ChangeType
Case IO.WatcherChang eTypes.Created
Try
If File.Exists(str DestDir & e.Name) = True Then
'File already exists in dest dir, wait for new file to
become available/not locked then delete it
Do Until FileIsReady(e.F ullPath) = True
Loop
File.Delete(e.F ullPath)
Exit Sub
Else
'File doesn't exist, wait for new file to become
available then move it.
Do Until FileIsReady(e.F ullPath) = True
Loop
'Call popup form passing full path (lowercase for some
reason)
Popup(e.FullPat h)
File.Move(e.Ful lPath, strDestDir & e.Name)
End If
Catch indexProblem As IndexOutOfRange Exception
MsgBox("Error - No filename supplied")
Catch ioProblem As System.IO.IOExc eption
'IOException error other than 'File already exists' (which
is checked above.)
MsgBox("Error - Can't process file named: " & e.FullPath)
End Try
End Select
End Sub

Function FileIsReady(ByV al sFileName As String) As Boolean
'Returns False if file is already opened by another process and the
'specified type of access is not allowed, the Open operation fails.
Dim nFileNum As Integer

nFileNum = FreeFile()
Try
FileOpen(nFileN um, sFileName, OpenMode.Binary , OpenAccess.Writ e)
FileClose(nFile Num)
Return True
Catch
Return False
End Try
End Function

[Herfried K. Wagner [MVP]]

"Paul" <pr*****@privat e.com> schrieb:

As most people who use the FileSystemWatch er know, it returns lowercase
text for some strange reason. I know there's a workaround for the
lowercase the FileSystemWatch er returns by by passing the 'FullPath'
property into the constructor of a DirectoryInfo Class and reading the
'Name' property but I'm not sure how or where I'd fit that into my code.

That didn't work for me. 'Name'/'FullName' returned the same string that
was passed to the 'DirectoryInfo' 's constructor (.NET 1.1 SP1, Windows XP
Professional SP2).

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Paul]

So there's no way of fixing the case? Suppose the next best thing is making
the start of each word a capital then. Pain!

Cheers,
Paul

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

"Paul" <pr*****@privat e.com> schrieb:

As most people who use the FileSystemWatch er know, it returns lowercase
text for some strange reason. I know there's a workaround for the
lowercase the FileSystemWatch er returns by by passing the 'FullPath'
property into the constructor of a DirectoryInfo Class and reading the
'Name' property but I'm not sure how or where I'd fit that into my code.

That didn't work for me. 'Name'/'FullName' returned the same string that
was passed to the 'DirectoryInfo' 's constructor (.NET 1.1 SP1, Windows XP
Professional SP2).

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>