workbook path

[RAYLWARD102]

was playing around with workbook.path
I get the path from a file that has been saved, but get nothing from a file that hasn't been saved (new blank workbook). I wanted to write a test that would say something like If wb.path = "" then....
Doesn't work though. Why is that?

I even tried to say If wb.saved = false then
when it gets to the workbook in question (looping); it's wont trip over any of my if's..... so How am I to know if a file hasnt ever been saved?

works for all of the other files that have been saved before.

 

[RAYLWARD102]

my code

    Dim wb As Workbook
    Dim TheApp As Object
    On Error GoTo nextapp
    Set TheApp = GetObject(, "Excel.Application")
    
    Call dbOn
        For Each wb In TheApp.Workbooks
            
            
            'MsgBox Len(wb.Path)
            MsgBox wb.Saved
            
            MsgBox wb.Name
            
            'MsgBox wb.Saved
            
            'MsgBox wb.Path
            
If wb.Path = True Then MsgBox "bob"
            'If wb.Path = "" Then MsgBox "has never been saved"
            'If wb.Saved = False Then MsgBox "not saved"
            'If objXLWorkbook.ReadOnly = True Then MsgBox "is read only"
        Next wb
    
nextapp:
    Call dbOff
    Set TheApp = Nothing

 

[RAYLWARD102]

Basically what I'm trying to accomplish is if a user has 20 workbooks open; I want my code to go through and save unsaved files, close read only files, and detect new workbooks that haven't been saved and save them as. My looping doesn't seem to include workbooks that have never been saved, which I'm unsure as to why.

Sub excel2()
    Dim wb As Workbook
    Dim TheApp As Object
    On Error GoTo nextapp
    Set TheApp = GetObject(, "Excel.Application")
    
    Call dbOn
        For Each wb In TheApp.Workbooks
            ' do some things here
            If wb.ReadOnly = True Then
                wb.Close
                GoTo done
            End If
            If Not wb.Saved Then
                wb.Save
                GoTo done
            End If
            'wb.path
done:
        Next wb
    
nextapp:
    Call dbOff
    Set TheApp = Nothing
End Sub