Re: Error saving text file with no extension

mayayana schrieb:
If there is a directory "C:\Program Files\Some App\FILE", an attempt
to .CreateTextFile( "C:\Program Files\Some App\FILE", True ) will fail
with a "permission denied" error.

That's a different issue and would typically only
apply to Vista.



I used code like this:

On Error Resume Next
WScript.Echo 0, CreateObject( "WScript.Shell" ) _
.RegRead( "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductName" )
If 0 <> Err.Number Then
WScript.Echo 1, CreateObject( "WScript.Shell" ) _
.RegRead( "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion" )
End If
On Error GoTo 0

Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
Dim sName
For Each sName In Array( "noextension", "same.as" )

If oFS.FolderExists( sName ) Then oFS.DeleteFolder sName
If oFS.FileExists( sName ) Then oFS.DeleteFile sName

oFS.CreateTextFile( sName, True ).Write "Was wollt Ihre denn, es geht doch!"
WScript.Echo 2, oFS.OpenTextFile( sName ).ReadAll

oFS.DeleteFile sName
oFS.CreateFolder sName

On Error Resume Next
oFS.CreateTextFile( sName, True ).Write "Was wollt Ihre denn, es geht doch!"
WScript.Echo 3, Err.Number, Err.Description
On Error GoTo 0

Next

to verify that creating a text file with the same name as an existing
directory fails under W2K and XP.
.