File not found err msg

[rfresh]

My code below is giving me a file not found err msg on the File.OpenOutput line. I thought if the file didn't exist it would be created?

Dim mFilePath As String
If File.ExternalWritable = True Then
    mFilePath = "File.DirRootExternal"
Else
    mFilePath = "File.DirInternal"
End If
Dim tw As TextWriter
tw.Initialize(File.OpenOutput(mFilePath, pDisplay_dat_filename, False))
tw.WriteLine(pNightimeIntensity)
tw.WriteLine(pAutoCloseAfterSelection)
tw.Close

 

[rfresh]

The problem seems to be this line:

tw.Initialize(File.OpenOutput(mFilePath, pDisplay_dat_filename, False))

...mFilePath isn't being seen as "File.DirRootExternal" or "File.DirInternal" as previously set.

 

[DouglasNYoung]

rfresh,
File.DirRootExternal and File.DirInternal are constants not literal values - if you tale the quotes off it should work!

Cheers,
Douglas

 

[rfresh]

I don't have the quotes around the variable...wait a min, you mean remove the quotes on the var assignment?

 

[DouglasNYoung]

Yes thats what I meant - Has it worked?

Douglas

 

[rfresh]

Yes...that worked...thank you...