Question

谁能帮我修改下VB6做的程序啊

模块一
Public Function FloppyDrive(sDrive As String) As Boolean
On Error Resume Next
FloppyDrive = Dir(sDrive) <> ""
End Function
窗口
Dim Flag As Boolean
Private Sub Command1_Click()
diskname = Year(Now) & "-" & Month(Now) & ".xls"
Flag = FloppyDrive("A:")
If Flag = False Then
MsgBox "A:驱没有准备好，请将磁盘插入驱动器！", 48, "警告"
'-------------------------------
'函数:检查软驱中是否有盘的存在
'-------------------------------
Else
ExporToExcel ("select 员工信息.员工编号 as 员工编号,姓名,科室,职务,基本工资,津贴,工资扣,洗理,书报,交通,奖金,日期 from 工资总,员工信息 where 员工信息.员工编号=工资总.员工编号")
MsgBox "恭喜你，数据导出成功", 48, "祝贺"
Me.Hide
End If
End Sub
Private Sub Command2_Click()
Me.Hide
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\gzgl.mdb;Persist Security Info=false"
con.CursorLocation = adUseClient
con.Open
Label1.Caption = "生成Excel格式上报盘" + "请确认软驱中已插入软盘"
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

原来是保存到软盘 我想改成保存到本地磁盘 愿意帮忙的也可以留下你们的邮箱我整个发你

Answer 1

把A：改成C：不可以吗？给我完整代码，我帮你把导出到Excel也一并做了~

我的邮箱：admin#xqlab.com

给我留言可到：http://www.xqlab.com/message