vbvb 打开指定文件夹目录加指定文件

来源：蜘蛛抓取(WebSpider) 时间：2015-04-11 19:17 标签： vb6 打开指定文件
&&&&&&&&&&&&&&&&&&
posts - 115,comments - 30,trackbacks - 0
Private Sub ExportCostSheetData()
InsertRow("")
InsertRow("Run 2:Export CostingSheet=========================")
InsertRow("Status:System Connectting DataBase!")
If ConnJWeb() = False Or ConnJWeb2() = False Then
InsertRow("Status:System Connectting DataBase fialed!")
AddRow("", "", "Status:System Connectting DataBase fialed!", "system")
' GoTo End1
Dim CurrentComp As Integer
Dim strDestFolder As String = "\\1.1.1.1\BogartCosting\CostSheet\"
Dim rsR As New ADODB.Recordset
Dim Flag As String = selectValue(" select top 1 flag from CostingSheetFileInfo ", adoJWeb, 0)
Dim strFiles() As String = Directory.GetFiles(strDestFolder)
Dim strFile As String
Dim AbsolutePath As String
Dim strFilePresent As String
rsR.Open("select * from CostingSheetFileInfo ", adoJWeb, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
For Each strFile In strFiles
strFilePresent = Path.GetFileName(strFile)
AbsolutePath = strDestFolder & strFilePresent
Dim netCmd As New OleDb.OleDbCommand("P_DeleteRecord", netJWeb)
mandType = CommandType.StoredProcedure
netCmd.Parameters.Add("@FileName", strFilePresent)
netCmd.Parameters.Add("@FileType", "Complete Costing")
netCmd.ExecuteNonQuery()
rsR.AddNew()
rsR.Fields("FileName").Value = strFilePresent
rsR.Fields("FileType").Value = "Complete Costing"
rsR.Fields("AbsolutePath").Value = AbsolutePath
rsR.Fields("LastUpdateDate").Value = Now()
rsR.Fields("Flag").Value = IIf(Flag = 0, "1", "0")
rsR.Update()
InsertRow(strFilePresent & "===OK!")
CurrentComp = CurrentComp + 1
Me.ProgressBar1.Value = (CurrentComp / strFiles.Length) * 100
rsR.Close()
Catch ex As Exception
SendEmail()
InsertRow("===Open Folder Fail===")
InsertRow("End Time:" & Now)
adoJWeb.Execute("Update CostingSheetFileInfo set flag='" & IIf(Flag = 0, "1", "0") & "' where flag is null ")
adoJWeb.Execute(" delete from CostingSheetFileInfo where flag='" & Flag & "'")
InsertRow(" Total error records:" & strFiles.r & "")
InsertRow("")
InsertRow("***************** System export result *******************")
InsertRow("")
InsertRow("End Time:" & Now)
InsertRow("***************************************************************")
阅读(...) 评论()VB如何按下按钮后打开桌面上一个指定文件夹中的指定exe文件_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：81,755贴子：
VB如何按下按钮后打开桌面上一个指定文件夹中的指定exe文件收藏
RT，请大神们拿1代文件夹路径，拿2代文件夹名称，拿3带EXE文件路径，拿4代EXE文件名称1234不一定全要用到。最好有简单点的那种，加上注释求教
有没有大神路过求教
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或用vb怎样实现打开任意的文本文件，不指定路径的那种？
[问题点数：80分，结帖人greenbaby]
用vb怎样实现打开任意的文本文件，不指定路径的那种？
[问题点数：80分，结帖人greenbaby]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关推荐：
2003年7月 总版技术专家分月排行榜第三
2013年7月 荣获微软MVP称号2012年7月 荣获微软MVP称号2006年1月 荣获微软MVP称号2008年1月 荣获微软MVP称号2007年1月 荣获微软MVP称号2005年1月 荣获微软MVP称号2003年9月 荣获微软MVP称号
2008年2月 VB大版内专家分月排行榜第一2003年4月 VC/MFC大版内专家分月排行榜第一2002年11月 VC/MFC大版内专家分月排行榜第一
2011年11月 VC/MFC大版内专家分月排行榜第二2008年3月 VB大版内专家分月排行榜第二2008年3月 硬件/嵌入开发大版内专家分月排行榜第二2003年4月 其他开发语言大版内专家分月排行榜第二2003年4月 VB大版内专家分月排行榜第二2003年3月 VB大版内专家分月排行榜第二
2003年7月 总版技术专家分月排行榜第三
2013年7月 荣获微软MVP称号2012年7月 荣获微软MVP称号2006年1月 荣获微软MVP称号2008年1月 荣获微软MVP称号2007年1月 荣获微软MVP称号2005年1月 荣获微软MVP称号2003年9月 荣获微软MVP称号
2007年5月 VB大版内专家分月排行榜第一2007年4月 VB大版内专家分月排行榜第一2005年12月 VB大版内专家分月排行榜第一2004年2月 VB大版内专家分月排行榜第一2004年1月 VB大版内专家分月排行榜第一2003年11月 VB大版内专家分月排行榜第一2003年10月 VB大版内专家分月排行榜第一
2007年6月 VB大版内专家分月排行榜第二2006年3月 VB大版内专家分月排行榜第二2006年2月 VB大版内专家分月排行榜第二2006年1月 VB大版内专家分月排行榜第二2004年9月 VB大版内专家分月排行榜第二2004年8月 VB大版内专家分月排行榜第二2004年3月 VB大版内专家分月排行榜第二2003年12月 VB大版内专家分月排行榜第二2003年9月 VB大版内专家分月排行榜第二2003年7月 VB大版内专家分月排行榜第二2003年6月 VB大版内专家分月排行榜第二2003年5月 VB大版内专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。访问本页面，您的浏览器需要支持JavaScript| Copyright &
. All Rights Reserved .

我要回帖

更多关于 vb6 打开指定文件 的文章

 

随机推荐