Please Help - Arrarydate compile error

340
0
06-09-2010 12:39 PM
JayKappy
Occasional Contributor
I have soem code running on my computer and everything works fine.
I open the project on another computer and I get this error:

arraydate compile error:
cannot find project or library

I first though of the referneces in the Visual Basic editor so I looked there...seems that there were more checked when the other computer opened the project but all that were checked while I had it open were checked when the other computer had it checked.
I am very confused here. Anyone know what reference (if thats the problem) the arraydate would use?

Hoe can it work on my computer and when I open the exact same mxd it dosent work on the other computer.

Please help

THank you......

' snip

           ' -------------------------------------------------------------------------
           ' Populate the list box with the jpg found in the search based off UNIQUEID
           ' -------------------------------------------------------------------------
            ' Set the wildcard search for the UNIQUEID selected.
            Dim ImageName As String
            ImageName = ""
            ImageName = "*" & Test8 & "*"
        
                    
            ' Get the images and populate the ListBox in the form using the variable above
            Dim colFiles As New Collection
            'The RecursiveDir function below allows us to find all files beneath a certain point in the directory tree
            'The Dir function offers a convenient solution to finding files in a single folder
            RecursiveDir colFiles, "C:\Pfdata\JUNO_DATA_COLLECTION\RETURNED_FILES\Images\Outfalls", ImageName, True
            'RecursiveDir colFiles, "S:\GIS_Data\Users\Engineering\Data\Images\JPG\RBL_Fieldstone", "*.jpg", True
                    
            Dim varcount As Integer
            varcount = 0
                    
            Dim vFile As Variant
                     
            For Each vFile In colFiles
                    varcount = varcount + 1
                     
                     Dim File2 As String
                     File2 = vFile
                'MsgBox File2
                    arryDate = Split(File2, "\")
                    strDate6 = arryDate(6)

                     ' Populate the list box with values
                     frm_Outfalls_Images.ListBox1.AddItem (strDate6)
            Next vFile
        
           ' Open the form
            frm_Outfalls_Images.Show

' snip
0 Kudos
0 Replies