Macro: List of all projects on server

[berto]

I need a makro that shows a list of all projects on the server to open
each project save and close again for update reason (Enterprisefields
are calculated)

This code worked on C: stored projects!

Sub UpDate()

Dim myFiles As String
Dim myPath As String
Const myFolder = "C:\"

myFiles = Dir(myFolder & "*.mpp")

Do Until myFiles = ""
myPath = myFolder & myFiles
FileOpen myPath

...
Application.FileSave
Loop

End Sub

How to make it work on Server stored projects? If I make a macro
recording the server's path is recorded as "<>\". If I use this as path
in my makro there is an error!

Anybody any idea
Thanks
Berto

 

[Rod Gill]

Hi,

You need to read all project names from the MSP_Projects table where
Proj_Type=0 then open and save/publish. Record a macro to see the code for
opening, saving and publishing a project to project server.

If that doesn't work for you the full code is in my book!!

See http://www.projectvbabook.com
--

Rod Gill
Project MVP

NEW!! Project VBA Book, for details visit: http://www.projectvbabook.com