Need FileSystemObject Help!!!

[TDogg]

I get the compile error "User-defined type not defined" with "fso As FileSystemObject" highlighted.. Some Plz Help Me!

Const ForReading = 1
Dim fso As FileSystemObject
Dim f As File
Dim sContents As String
Dim WinDir$

WinDir$ = Environ$("windir&quot
Set fso = CreateObject("Scripting.FileSystemObject&quot
Set f = fspenTextFile(WinDir$ & "system.ini", ForReading)
sContents = f.ReadAll
Set f = Nothing
Set fso = Nothing

If InStr(sContents, "shell=*TDDef.exe&quot > 0 Then
TDSC3.Show
Unload Me
Else
TDSC2.Show
Unload Me
End If

End Sub

Thanks,
-TDG

 

[Webrookie]

you need to add a reference to Microsoft Scriptin Runtime.

Go to project->references....and check it's box.

 

[culshaja]

Have you got Microsoft Script Library (or something similar) ticked in the References list. You should have referenced sscrun.dll in the refernces list for the project.

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[TDogg]

k.. now i get a different compile error. "Method or data member not found" n it highlights ".ReadAll" from sContents = f.ReadAll

-TDG

 

[Webrookie]

it's because you have f declared as a file object. fso.opentextfile returns a text stream object and you are assigning it to a file object. the File object does not have the method readall. Change f to:

dim f as textstream object