帮忙看看这个程序，为什么在98下没问题，到XP下就出错了？存储过程转换文本.

[wea1978]

源代码如下:
On Error GoTo err
Screen.MousePointer = 11
Frmflash.Show
Frmflash.Refresh
Dim FileName As String
Dim DATESTR As String
Dim FLNSTR As String

DATESTR = Format(Date, "yyyymmdd")
FLNSTR = Left(WinDir, 1) & ":\Program Files\JAT\IT-6000 考勤系统(标准版)\Data\" & DATESTR & ".txt"

FileName = Dir(App.Path & "\data\data.txt")
If FileName <> "" Then
Kill FileName
Else
If DirExists(App.Path & "\data") = False Then ' 检查目录是否存在
Call MakeDir(App.Path & "\data") '创建目录
End If
End If
FileName = Dir(FLNSTR)
'------------处理数据
If FileName <> "" Then
'------------------------复制备份文件到服务器
If DirExists(App.Path & "\bak") = False Then ' 检查目录是否存在
Call MakeDir(App.Path & "\bak") '创建备份目录
End If
FileCopy FLNSTR, App.Path & "\bak\" & DATESTR & ".txt"
FileCopy FLNSTR, App.Path & "\data\data.txt"

'---------------- 开始文本转换
Dim connk As New Connection
connk.Open connstring

Dim Cmd3 As New ADODB.Command
Dim rs3 As New ADODB.Recordset

Set Cmd3.ActiveConnection = connk
Cmd3.CommandType = adCmdStoredProc
Cmd3.CommandTimeout = 1000

Cmd3.CommandText = "intxt_data"
Set rs3 = Cmd3.Execute(numrec)

If numrec = 0 Then
MsgBox "读取失败!请联系程序员."
Else
Screen.MousePointer = 1
MDIFormwb.Caption = "Wb"
End If

Else
MsgBox "没有读卡钟数。", vbOKOnly
Screen.MousePointer = 1
MDIFormwb.Caption = "Wb"
Unload Frmflash
Exit Sub
End If
' Set rs3 = Nothing
Unload Frmflash
If connk.State Then connk.Close
If rs3.State Then rs3.Close
Set Cmd3 = Nothing
Exit Sub
err:
Screen.MousePointer = 1
Unload Frmflash
MsgBox "读取数据失败!请重试.", vbCritical, "错误!"

[wea1978]

还有个过程:
Public Function MakeDir(Path As String) As Boolean '创建目录
On Error Resume Next
Dim o_strRet As String
Dim o_intItems As Integer
Dim o_vntItem As Variant
Dim o_strItems() As String
o_strItems() = Split(Path, "\")
o_intItems = 0
For Each o_vntItem In o_strItems()
o_intItems = o_intItems + 1


If o_intItems = 1 Then
o_strRet = o_vntItem
Else
o_strRet = o_strRet & "\" & o_vntItem
MkDir o_strRet
End If
Next
MakeDir = (err.Number = 0)
End Function

[wea1978]

取得windows系统路径:
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDir() As String 'windows路径
Dim s As String
Dim Z As Long
Dim R As Long
s = Space(254)
Z = Len(s)
R = GetWindowsDirectory(s, Z)
WinDir = Left(s, R)
WinDir = WinDir & "\"
End Function

[wea1978]

为什么会出错？在98下好好的，怎么到XP里面就出问题了?是不是少了什么东西没有引用到？
。。。。
麻烦各位大侠帮忙看看。谢谢了。

[bacaihong]

说清楚点,除什么错?不能跟踪调试在那个地方出错吗?

[wea1978]

没有条件跟踪,因为在XP下没有源代码可以调试.只知道一运行就跑到错误陷井里去了。

[wea1978]

在98下运行是好的。没一点问题。

[yangao]

把你的错误处理放开
然后重新编译
再在xp上运行就看出来了

[yangao]

是关闭

[wea1978]

提示..文件未找到.
难道是取得windows系统路径有问题?

[bacaihong]

加一个显示windows系统路径和文件的信息，编译一个在xp上看看就知道了嘛

[wea1978]

谢谢楼上的提醒,...

[cly2004]

mark