Programming Forums > Application Development > Visual Basic

Abyss · Mar 23rd, 2008, 1:43 PM

Hello All, I was wondering if someone could help explain this piece of VB code to me? I've read about the FileSystemObject online but the 'rfs' function is a bit confusing. Any help is appreciated.

Thanks

(Toggle Plain Text)

Function rfs(filespec)
  Dim fso, Msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(filespec)) Then
    Msg = "YES"
  Else
    Msg = "NO"
  End If
  rfs = Msg
End Function

Abyss · Mar 23rd, 2008, 1:52 PM

Actually, I understand that the rfs function is taking in say, a string like for example C:Windows\Notepad.exe"and it's checking if that file exists...just not sure about the

(Toggle Plain Text)

Set fso = CreateObject("Scripting.FileSystemObject")

Hmm...

null_ptr0 · Mar 23rd, 2008, 9:57 PM

Scripting.FileSystemObject is an activex control object, and the function returns whether or not the argument filespec exists.
it should be (i believe):

(Toggle Plain Text)

Function rfs(ByVal filespec As String) As String
  Dim fso, Msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(filespec)) Then
    Msg = "YES"
  Else
    Msg = "NO"
  End If
  rfs = Msg
End Function

Mar 23rd, 2008, 1:43 PM	#1
Abyss Newbie Join Date: Apr 2005 Posts: 18 Rep Power: 0	FileSystemObject Hello All, I was wondering if someone could help explain this piece of VB code to me? I've read about the FileSystemObject online but the 'rfs' function is a bit confusing. Any help is appreciated. Thanks (Toggle Plain Text) Function rfs(filespec) Dim fso, Msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then Msg = "YES" Else Msg = "NO" End If rfs = Msg End Function Function rfs(filespec) Dim fso, Msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then Msg = "YES" Else Msg = "NO" End If rfs = Msg End Function

Mar 23rd, 2008, 1:52 PM	#2
Abyss Newbie Join Date: Apr 2005 Posts: 18 Rep Power: 0	Re: FileSystemObject Actually, I understand that the rfs function is taking in say, a string like for example C:Windows\Notepad.exe"and it's checking if that file exists...just not sure about the (Toggle Plain Text) Set fso = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") Hmm...

Mar 23rd, 2008, 9:57 PM	#3
null_ptr0 12 years old Join Date: Nov 2007 Posts: 105 Rep Power: 0	Re: FileSystemObject Scripting.FileSystemObject is an activex control object, and the function returns whether or not the argument filespec exists. it should be (i believe): (Toggle Plain Text) Function rfs(ByVal filespec As String) As String Dim fso, Msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then Msg = "YES" Else Msg = "NO" End If rfs = Msg End Function Function rfs(ByVal filespec As String) As String Dim fso, Msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then Msg = "YES" Else Msg = "NO" End If rfs = Msg End Function

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)