---

Jeg forsøger at tilføje en printer til systemet, programmatisk. Jeg har
fundet ud af at jeg skal bruge bla. AddPrinterDriver.
Problemet er bare, at jeg ikke kan få det til at virke. Funktionen
returnerer False, og err.lastDLLError = 2 (File not found)


Private Declare Function AddPrinterDriver Lib "winspool.drv" Alias
"AddPrinterDriverA" (ByVal pName As String, ByVal Level As Long,
pDriverInfo As Any) As Long
Type DRIVER_INFO_3
cVersion As Long
pName As String
pEnvironment As String
pDriverPath As String
pDataFile As String
pConfigFile As String
pHelpFile As String
pDependentFiles As String
pMonitorName As String
pDefaultDataType As String
End Type


        Dim DI3 as DRIVER_INFO_3
        BP = "c:\\drivers\\"
        WinNT = true
Select Case WinNT
Case True
DI3.cVersion = 3
DI3.pConfigFile = BP & "ADOBEPSU.DLL" & Chr(0)
DI3.pDriverPath = BP & "ADOBEPS5.DLL" & Chr(0)
DI3.pEnvironment = "Windows NT x86" & Chr(0)
DI3.pHelpFile = BP & "ADOBEPSU.HLP" & Chr(0)
DI3.pDataFile = BP & "PDFCREATOR.PPD" & Chr(0)
Case Else
DI3.cVersion = 0
DI3.pConfigFile = BP & "ADOBEPS4.DRV" & Chr(0)
DI3.pDriverPath = BP & "ADOBEPS4.DRV" & Chr(0)
DI3.pEnvironment = BP & "Windows 4.0" & Chr(0)
DI3.pHelpFile = "BP & ADOBEPS4.HLP" & Chr(0)
DI3.pDataFile = BP & "DEFPRTR2.PPD" & Chr(0)
End Select
DI3.pName = "DOKITPS"
DI3.pDependentFiles = BP & "ADOBEPS5.DLL"
DI3.pDefaultDataType = "RAW"
DI3.pMonitorName = ""
msgbox AddPrinterDriver(Chr(0), 3, DI3)

Alle filerne jeg refererer til findes selvfølgelig, så hvad kan der være
galt? Er der et sted jeg kan tjekke, hvilke fil det er den ikke kan
finde?
Og er der en, der ved hvordan det kan løses på en anden måde, evt.?

På forhånd tak,

Kasper Hansen