how to call function that return object

[Arif Liminto]

hi iam new vb learner, i got a problem how to call function that return object it always said object variable not set but i think i already call it as object, is that in my code how to call object something wrong ? -------------------------------------------- Public Function accessinfo() As Object Dim myFSO, f As Object Dim filename As String On Error GoTo errhandler filename = fillist.Path + "\" + fillist.filename Set myFSO = CreateObject("Scripting.FileSystemObject") Set f = myFSO.GetFile(filename) txt_datecreated.Text = f.DateCreated txt_dateaccess.Text = f.DateLastAccessed txt_datemodified.Text = f.DateLastModified txt_size.Text = (Format((f.Size / 1024) / 1, "##")) + " kilobyte " Exit Function accessinfo = f errhandler: MsgBox "No File selected !. Please select the file ", vbCritical, Warning End Function ------------------------------------------------------- and then i want to call function accessinfo in getinfo Private Sub cmd_getinfo_Click() Dim fso As Object Set fso = accessinfo MsgBox (fso.DateCreated) End Sub

[Naji El Kotob]

Hi, You are using a Late Binding Technique, try to use the IO.File Class instead, Check this link http://msdn2.microsoft.com/en-us/library/system.io.file.getcreationtime.aspx[^] and the list of File members for extra samples http://msdn2.microsoft.com/en-us/library/system.io.file_members.aspx[^] Hope this helps :)

NajiCo http://www.InsideVB.NET[^] It's nice 2b important, but it's more important 2b nice...

[Dominick Marciano]

I may be wrong in this but you have 'Exit Function' before 'accessinfo=f' to the function is trying to return to its caller before the object has been set. Why not try removing the 'Exit Function' and the 'accessinfo=f' and just replace it with 'Return f'?

[TomGarth]

Your Exit Function is preventing the "accessinfo = f" assignment from executing. Once you fix that, you will have to add "Set" to the object assignment. - "Set accessinfo = f".

Tom Garth Developer R. L. Nelson and Associates, Inc., Virginia