ByRef Argument!

Apocolypse2005 · August 8th, 2007, 07:00 PM

What is a ByRef Argument Type Mismatch?? Any ideas, this is the code im using also if its any help im using the microsoft scripting runtime reference!

Code:

Dim FSO As Scripting.FileSystemObject
Dim Folder As String
Folder = "C:\Files"
Set FSO = New Scripting.FileSystemObject
If FSO.FolderExists(Folder) Then
FindFiles (Folder)
Else
MsgBox "Folder Doesn't exist :S"
End If

Now the FindFiles is a function which in the brackets requires this

Code:

FindFiles(dirDirectory As Scripting.Folder)

Any ideas?

Cheers

------------------------------------------------
Apocolypse2005
Always ready and waiting to be helped!

Shasur · August 8th, 2007, 11:32 PM

FindFiles(dirDirectory As Scripting.Folder) Function expects the reference type as Scripting.Folder

whereas you are passing a string named 'Folder'

FindFiles (Folder)

That is the cause for the error

Regards
Shasur

http://www.dotnetdud.blogspot.com

Apocolypse2005 · August 9th, 2007, 06:36 AM

Im using this new code, but now im getting a type mismatch the cmdSearch is getting highlighted in yellow d the statement FindFiles (Folder) is highlight in blue(normal text highlight)

Code:

Private Sub cmdSearch_Click()
Dim FSO As Scripting.FileSystemObject
Dim Folder As Scripting.Folder

Set FSO = New Scripting.FileSystemObject
Set Folder = FSO.GetFolder("C:\Files")

If FSO.FolderExists(Folder) Then
FindFiles (Folder) 'This is highlighted!
Else
MsgBox "Folder Doesn't exist :S"
End If

End Sub

Any ideas?!

Cheers

------------------------------------------------
Apocolypse2005
Always ready and waiting to be helped!

gbianchi · August 9th, 2007, 08:14 AM

hi there.. maybe an error inside findfiles????

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

BrianWren · August 9th, 2007, 11:57 AM

What is this "FindFiles()?" It appears to be something you (the generic you) have written. I find no such routine in the Scripting library, or in the VB libraries.

Putting the argument in parens indicates that it is a function, and will return something, yet you have nothing set to do that receiving. So it should be

Code:

    <Something> = FindFiles(Folder)
    Set <Something> = FindFiles(Folder)
    ' Or
    FindFiles Folder

What does FindFiles() do?

Could you use better-formed text in your posts? [u]You</u> know what you mean, but [u]we</u> have to rely on what you type. For instance, â. . . , but now im getting a type mismatch the cmdSearch is getting highlighted in yellow . . . â doesn't actually mean anything. (Plus, it is standard to capitalize âI.â Plus, contractionsââimâ should be âIâmâârequire apostrpophes. Sometimes making haste slows things down...) It appears to mean, â. . . , but now im getting a type mismatch. The statement âcmdSearchâ is getting highlighted in yellow . . . â (You did say âAlways ready and waiting to be helped!â Just trying to help...)

If thatâs right, thatâs the behavior when a routine (cmdSearch() in this case) wonât compile. (When the routine compiles but hits an error while trying to execute a given line, then that individual line is highlighted.) The highlight indicates the progress of the running. Everything up to the highlight has run, but it is stopped trying to execute at that which is highlit. So knowing more about FindFiles() would help resolve where the problem lies.

Apocolypse2005 · August 9th, 2007, 01:39 PM

Just for you mr wren!
the findfiles is a function created by me the (generic me), here is the code!

Code:

Sub FindFiles(dirDirectory As Scripting.Folder)
Dim FSFile As Scripting.File

For Each FSFile In dirDirectory.Files
If LCase(Right(.Name, 4)) = ".txt" Then
AddFiles FSFile.Name
End If
Next FSFile

Set FSFile = Nothing

End Sub

Have a browse on that!

------------------------------------------------
Apocolypse2005
Always ready and waiting to be helped!

gbianchi · August 9th, 2007, 01:54 PM

if you trace this code it's get goes ok?? what if a file name is "a" (just a letter, only one, the right will fail)

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Apocolypse2005 · August 9th, 2007, 01:57 PM

Well i've tried to F8 it (step by step on each line) but as soon as i click on the button it just straight to an error, i dont know how to go through the findfiles step by step.

gbianchi · August 9th, 2007, 02:07 PM

ok.. try the functions on my vb..

it fails because of this:

Code:

FindFiles Folder

(remove this () )

and it will work.. but take in mind what I tell you about filenames...

and also this line is wrong:

Code:

If LCase(Right(.Name, 4)) = ".txt" Then

should be:

Code:

If LCase(Right(FSFile.Name, 4)) = ".txt" Then

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

Apocolypse2005 · August 9th, 2007, 02:12 PM

Hmmm, well my comp crashed last night when i was sorting all that out and of course it wasnt saved so i'll have to go back and change that again. Thanks alot for the help, it was actually helpful, lol!