是这样的，在存货系统中，想保存一些跟产品相关的图纸和报价资料，请问应该怎样实现？有没有哪位有相关的例子上传一个或发到我邮箱里。
davyxjc@

好象保存图片才在数据库中保存,而保存附件,一般都是保存到服务器上的某一个目录中,但不知道怎样实现?

Dim fs As New FileSystemObject
Dim fw As TextStream

    If fs.FileExists(Path & "\" & "123.txt") = False Then '寫入檔案所指定的位子
       Set fw = fs.OpenTextFile(Path & "\" & "123.txt", ForWriting, True) '會覆蓋
    Else
       Set fw = fs.OpenTextFile(Path & "\" & "123.txt", ForAppending, True) '接在後面寫
    End If

我要做成象附件一样,应该怎样做?可否给一个思路????

不清楚你画面是哪个控件～一般不就类似网页超联结一样～点一下就连过去主要知道路径即可～～

如果是ListBox的或是MSFlexGrid的～就写你点到哪行就连结到哪个路径的档案？(反正都有Click事件可以用)
如果是Access表就在开个栏位存档案路径～再到VB的执行时一起抽取出来～

要附件很简单阿～找个回纹针的图放到一个PictureBox的里～看图要摆在哪～再到PictureBox_Click（）事件中撷取撰写路径相关代码～

不太懂你要的～这种要请风吹哥来才行了～

回第6楼： 我也没太看懂他的意思。

如果是数据库应用程序，如果是图片附件就放到 数据库里吧。如果是其他附件，就放目录吧。
如果是网页版的，附件，可以用放到数据库里，也可以放到某个目录下。

存在附件标志。
如果是 listview 的话，可以直接到里面附加图标。如果是其它控件的话，可以考虑使用 字符代替。
如果你是自定义显示的话，也可以用图标，也可以用字符。
均可响应点击事件，执行对应的操作就是了。

我的图片应该是一个listview控件,里面存货对应存货编码的附件.不好意思,这两天有一点忙,所以没有来查看贴子.

不知道能不能像ListView的MSFlexGrid的一样～外嵌控制项到指定地点～只要个判断式～判断拓展名～再加一个imageslist～去加在图片到前面～
也许字前先空几格～再依照判断出来的档案型态当ImageList的索引编号～加载图片到每行字前～反正每行高度都固定～最后再做PictureBox_Click（）事件～
把连结指到储存路径位置～接下来就看操作系统有没有设档案关联性～自动用该软件开启附档～
这样行不～最主要是Picture1控件数组的编号要用程序自己找空的去用～

sample code(这是针对每行前加载图案并可以点选连结并开启的一小段代码～参考看看～照抄一定死～

    PictureIndex = GetObjectIndex(Picture1)
    Load Picture1(PictureIndex)
    Set PicAdd = Picture1(PictureIndex)
    Set Picture1(PictureIndex).Container = MSFlexGrid1.Container
    Picture1(PictureIndex).ZOrder 0     '调整重叠元件上下层顺序(Picture1和MSFlexGrid1的顺序)(先写在下)
    Frame1.ZOrder 0                     '调整重叠元件上下层顺序(Picture1和Frame1的顺序)(后写在上)
    If m_ZoomCols = True Then
        PicAdd.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(0) + 4 * Screen.TwipsPerPixelX
        PicAdd.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(StartCol) + 4.4 * Screen.TwipsPerPixelY
        PicAdd.Picture = ImageList1.ListImages(1).Picture 'LoadPicture(icoPath1)
        ReDim Preserve m_ImageAdd(PictureIndex): m_ImageAdd(PictureIndex) = True
        MSFlexGrid1.ColAlignment(0) = flexAlignLeftCenter
        MSFlexGrid1.Col = 0
        PicAdd.Visible = True
        MSFlexGrid1.TextMatrix(StartCol, 0) = StartCol & "-" & EndCol
        For i = StartCol To EndCol
            For j = 2 To MSFlexGrid1.Cols
                MSFlexGrid1.Row = i: MSFlexGrid1.Col = j - 1
                MSFlexGrid1.CellBackColor = vbYellow
            Next j
            If i <> StartCol Then MSFlexGrid1.RowHeight(i) = 0
        Next i
    End If

    ReDim Preserve ObjectPic(PictureIndex)
    ObjectPic(PictureIndex) = StartCol & "," & EndCol