WDM プリンタINFファイル解析一般 新しいページはコチラ
提供: yonewiki
(→[DestinationDirs]) |
(→[DestinationDirs]) |
||
639行: | 639行: | ||
Dim pDriverDirectory As String | Dim pDriverDirectory As String | ||
− | |||
level = 1 'must be 1 | level = 1 'must be 1 | ||
cbBuff = 0 'must be 0 initially | cbBuff = 0 'must be 0 initially | ||
pDriverDirectory = vbNullString 'must be null string initially | pDriverDirectory = vbNullString 'must be null string initially | ||
− | |||
− | |||
− | |||
− | |||
pName = vbNullString | pName = vbNullString | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
pEnvironment = vbNullString | pEnvironment = vbNullString | ||
− | |||
− | |||
If GetPrinterDriverDirectory(pName, _ | If GetPrinterDriverDirectory(pName, _ | ||
pEnvironment, _ | pEnvironment, _ | ||
667行: | 653行: | ||
cbBuff, _ | cbBuff, _ | ||
pcbNeeded) = 0 Then | pcbNeeded) = 0 Then | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
pDriverDirectory = Space$(pcbNeeded) | pDriverDirectory = Space$(pcbNeeded) | ||
cbBuff = Len(pDriverDirectory) | cbBuff = Len(pDriverDirectory) | ||
− | |||
If GetPrinterDriverDirectory(pName, _ | If GetPrinterDriverDirectory(pName, _ | ||
pEnvironment, _ | pEnvironment, _ | ||
682行: | 664行: | ||
pcbNeeded) = 1 Then | pcbNeeded) = 1 Then | ||
− | + | Debug.print Left$(pDriverDirectory, pcbNeeded) | |
− | + | ||
− | End If | + | End If |
− | End If | + | End If |
− | + | ||
End Sub | End Sub | ||