2015年8月17日
读取文件夹以及消除
摘要： plFso = CreateObject("Scripting.FileSystemObject") ' ' '/ 世代管理 plRoot = plFso.GetFolder(plTarbkFld) plCurCn... 阅读全文
posted @ 2015-08-17 13:15 快乐的小太阳 阅读(140) 评论(0) 推荐(0) 编辑
常用的文件文件夹目录的操作函数
摘要： BuildPath()生成一个文件路径CopyFile() 复制文件CopyFolder() 复制目录CreateFolder() 创建新目录CreateTextFile() 生成一个文件DeleteFile() 删除一个文件DeleteFolder() 删除一个目录DriveExists() 检验... 阅读全文
posted @ 2015-08-17 13:10 快乐的小太阳 阅读(234) 评论(0) 推荐(0) 编辑
db的操作
摘要： '/----------------------------------------------------------------------------------------------'/ 処理名 ：データベースオープン'/'/ 機能 ：データベースをオープンする'/'/ 引数 ：ioHan... 阅读全文
posted @ 2015-08-17 11:05 快乐的小太阳 阅读(138) 评论(0) 推荐(0) 编辑
从数据库取数据
摘要： '/---------------------------------------------------------------------------------------------- '/ 処理名 ：フィールドデータ取得 '/ '/ 機能 ：フィールドの内容... 阅读全文
posted @ 2015-08-17 10:46 快乐的小太阳 阅读(232) 评论(0) 推荐(0) 编辑
pdf文件的作成
摘要： Dim Report As New crProgressList Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4 Report.SetDatabaseLogon(strUser, strPasswo... 阅读全文
posted @ 2015-08-17 10:29 快乐的小太阳 阅读(166) 评论(0) 推荐(0) 编辑
读取文件
摘要： テキストを読込Dim plFileNo As ShortDim plBuf As ObjectIf hFso.FileExists(plTmpTxt) = True ThenplFileNo = FreeFile()FileOpen(plFileNo, plTmpTxt, OpenMode.Inpu... 阅读全文
posted @ 2015-08-17 10:25 快乐的小太阳 阅读(139) 评论(0) 推荐(0) 编辑
发送邮件
摘要： 发送邮件 Public Function SendMail(ByVal iSMTPServer As String, ByVal iUser As String, ByVal iPass As String, ByVal iAddressto As String, ByVal iAddressFro... 阅读全文
posted @ 2015-08-17 10:23 快乐的小太阳 阅读(174) 评论(0) 推荐(0) 编辑