Hi All:

I'm having a bit of trouble opening a file off of a Network Drive for use in Excel. Problem is that every users drive may be mapped differently, so I must first establish the drive letter. Then I would like to located the file and open it.

FYI newPowerpoint is set as Powerpoint.Application 

'Get Letter of Shared Drive
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = d.DriveLetter & ":"

'Open Template from Shared Drive
    newPowerPoint.Presentations.Open Filename:=s & "\Folder\Template.pptx"

I'm sure it's a simple oversight, but I am not able to open the file using this code.


Thanks in advance