Think there is a bug in VB 6,0

Think there is a bug in VB 6,0

Anonymous
Not applicable
202 Views
2 Replies
Message 1 of 3

Think there is a bug in VB 6,0

Anonymous
Not applicable
Private Sub Form_Load() Dim oFileReq As ApprenticeServerComponent Dim oDrawdoc As ApprenticeServerDrawingDocument Set oFileReq = New ApprenticeServerComponent Set oDrawdoc = oFileReq.Open("c:\part1.idw") MsgBox oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName & Chr(13) _& oDrawdoc.ReferencedFiles.Item(1).FullFileName End Sub Place the idw and the ipt in c:\ Try to run this in VB 6.0, I get 2 different paths on the same view, one saying that the referenced part is in c:\temp and one saying that it is in c:\, if you the change the msgbox to : MsgBox oDrawdoc.ReferencedFiles.Item(1).FullFileName & Chr(13) _& oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName The paths are the same ????? is this a bug??? There is no problem in VBA Attachment not added (content type not allowed): "Part1.ipt"
0 Likes
203 Views
2 Replies
Replies (2)
Message 2 of 3

Anonymous
Not applicable
I'm running VB6SP6 and got the same answer for both. Joe -- "Lasse Frederiksen" wrote in message news:40d7f0fb_2@newsprd01... > Private Sub Form_Load() > > Dim oFileReq As ApprenticeServerComponent > > Dim oDrawdoc As ApprenticeServerDrawingDocument > > > Set oFileReq = New ApprenticeServerComponent > > Set oDrawdoc = oFileReq.Open("c:\part1.idw") > > MsgBox > oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName & > Chr(13) _& oDrawdoc.ReferencedFiles.Item(1).FullFileName > > End Sub > > Place the idw and the ipt in c:\ > > Try to run this in VB 6.0, I get 2 different paths on the same view, one > saying that the referenced part is in c:\temp and one saying that it is in > c:\, if you the change the msgbox to : > > MsgBox oDrawdoc.ReferencedFiles.Item(1).FullFileName & Chr(13) _& > oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName > > The paths are the same ????? is this a bug??? There is no problem in VBA > > >
0 Likes
Message 3 of 3

Anonymous
Not applicable
Okay only on SP4, gess thats the deal. "Joe Sutphin" skrev i en meddelelse news:40d80fec_3@newsprd01... > I'm running VB6SP6 and got the same answer for both. > > Joe > -- > > "Lasse Frederiksen" wrote in message > news:40d7f0fb_2@newsprd01... > > Private Sub Form_Load() > > > > Dim oFileReq As ApprenticeServerComponent > > > > Dim oDrawdoc As ApprenticeServerDrawingDocument > > > > > > Set oFileReq = New ApprenticeServerComponent > > > > Set oDrawdoc = oFileReq.Open("c:\part1.idw") > > > > MsgBox > > oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName & > > Chr(13) _& oDrawdoc.ReferencedFiles.Item(1).FullFileName > > > > End Sub > > > > Place the idw and the ipt in c:\ > > > > Try to run this in VB 6.0, I get 2 different paths on the same view, one > > saying that the referenced part is in c:\temp and one saying that it is in > > c:\, if you the change the msgbox to : > > > > MsgBox oDrawdoc.ReferencedFiles.Item(1).FullFileName & Chr(13) _& > > oDrawdoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedFile.FullFileName > > > > The paths are the same ????? is this a bug??? There is no problem in VBA > > > > > > > >
0 Likes