作者winstonlim (wayne)
看板Visual_Basic
标题[VB6 ] 如何将多项档案储存於一资料档内
时间Sat May 20 06:27:28 2006
请问各位大大
如何将两笔以上的档案储存於一个资料夹,
并判断对方已经储存置档案内,
将g_savecom储存的资料放置资料档内的顶端,
将f_savecom储存的资料放置资料档内的後端.
但如果先储存f_savecom时是否能将资料放置後端.
感恩了
Private Sub g_savecom_Click()
Dim filename As String
'On Error GoTo fin
filename = App.Path & "\g.dat"
If g_adglist.ListCount = 0 Then Exit Sub
Open filename For Output As #1
For I = 0 To g_adglist.ListCount - 1
Print #1, g_adglist.List(I)
Next
Close #1
End Sub
Private Sub f_savecom_Click()
Dim f_file As String
Dim f_move As String
Dim f_color As String
Dim filename As String
filename = App.Path & "\g.dat"
Open filename For Output As #1
f_file = f_labfl.Caption
f_move = f_motext.Text
f_color = f_col
Print #1, "f_axis"
Print #1, f_file & "," & f_move & "," & f_color
Close (1)
End Sub
麻烦各位大大了...谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.118.206