Programming Forums > Application Development > Visual Basic

Abyss · Mar 23rd, 2008, 12: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, 12: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, 8: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, 12: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, 12: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, 8:57 PM	#3
null_ptr0 11 years old Join Date: Nov 2007 Posts: 79 Rep Power: 1	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 __________________ iload_0 iconst_1 ishl or iload_0 iconst_2 idiv or iload_0 iconst_2 iconst_1 imul idiv [1] & [2] use the smallest stack size

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)