macro for file size

[mikieprojects48]

I have a macro that will show me the file size of a file. It should be simple I know, I have lloked over the internet and not getting anywhere. here is a the code that I got from a book.I'm getting a run time error 53 and the debug says theres a problem with the last line. Any help would be appreciated.

Sub GetFileSize()
Dim TheFile As String
TheFile = "G:\DWG"
MsgBox FileLen("TheFile")
End Sub

 

[Andrew Poulsom]

Try removing the double quotes around TheFile (which is a variable):

MsgBox FileLen(TheFile)

 

[mikieprojects48]

New at VBA you are pointing me in the right direction. this is the code now.But the only thing that shows up in the message box is FileSize. I need to figure out what I'm missing to bring up the actual file size in bytes, also again thanks
Sub GetFileSize()
Dim FileSize As String
FileSize = "G:\"
MsgBox "FileSize"
End Sub.

 

[Greg Truby]

Here's what Andrew meant:

Sub GetFileSize()
    Dim TheFile As String
    TheFile = "G:\DWG"
    MsgBox FileLen(TheFile)
End Sub

An alternative would be to skip the use of the variable:

Sub GetFileSize()
    MsgBox FileLen("G:\DWG")
End Sub

 

[mikieprojects48]

I'm getting whatever I tell it to in the msgbox. I wonder if there is some kind of safety block on my hard-drives or PC, thank for the help

 

[Andrew Poulsom]

I'm getting whatever I tell it to in the msgbox. I wonder if there is some kind of safety block on my hard-drives or PC, thank for the help

What code are you using now?

 

[mikieprojects48]

Amen LOL! I was trying to get the size of my external thumb drive, that was one of the problems. When I gave it a particular file to look at this code worked.

Sub Get_File_Size()
Dim FILE1 As String
FILE1 = "F:\Cell phone pictures 01-01-09\DUKE.jpg"
MsgBox "The Size of the File is " & FileLen(FILE1) & " bytes"
End Sub

Thanks for the input, have a good day.
mp