Private Sub Command1_Click()
'
'
    
    Dim appRef As New Illustrator.Application
    Dim docRef As Illustrator.Document
    Dim myPath As String
    Dim myName As String
    Dim myFileSystem As New FileSystemObject
    
    If appRef.Documents.Count > 0 Then
    Set docRef = appRef.Documents(1)
    'loop thru raster items
    If docRef.RasterItems.Count > 0 Then
        For i = 1 To docRef.RasterItems.Count
            myPath = docRef.RasterItems(i).File
            If myPath <> "" Then
                ' copy file at myPath to Dir1.Path
                myFileSystem.CopyFile myPath, Dir1.Path
            End If
        Next
    End If
    
    'loop thru placed items
    If docRef.PlacedItems.Count > 0 Then
        For i = 1 To docRef.PlacedItems.Count
            myPath = docRef.PlacedItems(i).File
            If myPath <> "" Then
                ' copy file at myPath to Dir1.Path
                myFileSystem.CopyFile myPath, Dir1.Path
            End If
        Next
    End If
    
    'save ill doc to new directory
    myName = docRef.Name
    myPath = Dir1.Path & myName
    docRef.SaveAs (myPath)
    
    MsgBox "Collected for output."
    
    End If
 
End Sub