zoeken op meerdere locatie's

[Schippertje]

Goeden avond heren.

Dim AppExcel As Object
        Dim workBook As Object
        AppExcel = CreateObject("Excel.Application")


        workBook = AppExcel.Workbooks.Open("C:\ProgramFiles\.")
        AppExcel.Visible = False

        Worksheets = workBook.worksheets
        Worksheets("Blad1").Cells(1, 1).value = TextBox1.Text
        
        Worksheets("Blad1").PrintOut()
        workBook.Saved = True
        AppExcel.Quit()

Dit is een code die ik gebruik om uit te printen via excel.
Nou moet ie dus naar een excel file zoeken op een bepaalde locatie.
Nu wou ik het graag zo instellen, dat als die op de ene locatie bijv. (C:\Program Files) het bestand niet vindt, dat ie dan naar de andere locatie gaat kijken bijv. (D:\Program Files).
Kan iemand mij daarbij helpen.

 

[JoZ1]

[cpp]If System.IO.File.Exists("C:\...") Then
workBook = "C:\..."
Else
workBook = "D:\..."
End If[/cpp]

Dit zou moeten werken.

 

[Schippertje]

mmmmmmm oke.
ik krijg nu deze fout melding, ik weet niet wat het betekent.

 

[JoZ1]

't Was ook maar pseudocode, dit moet 't dan echt zijn:

[CPP]If System.IO.File.Exists("C:\...") Then
workBook = AppExcel.Workbooks.Open("C:\ProgramFiles\.")
Else
workBook = AppExcel.Workbooks.Open("D:\ProgramFiles\.")
End If[/CPP]

 

[Schippertje]

haha.
super het werkt helemaal.
Ik dank u weer hartelijk:thumb: