把一个文件夹下面所有txt文件导入notes
来源:互联网 发布:测试电脑显卡的软件 编辑:程序博客网 时间:2024/05/17 01:32
Sub Click(Source As Button)
On Error Goto UnknowError
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim pathName As String, fileName As String
Dim fileNum As Integer
Dim stream As NotesStream
Set db=session.CurrentDatabase
Set stream = session.CreateStream
directory$ = "D:/Test"
Chdir directory$
fileName$ = Dir$("*.*")
Do While fileName$ <> ""
pathName="D:/Test/" & fileName
If Not stream.Open(pathName) Then
Messagebox fileName$,, "Open failed"
Exit Sub
End If
Set doc = New NotesDocument(db)
doc.Form = "TxtContent"
doc.Txt = stream.ReadText()
Call doc.Save(True,False)
Call stream.Close
fileNum=fileNum+1
fileName$ = Dir$()
Loop
Msgbox "共导入" & fileNum & "个文件"
Exit Sub
UnknowError:
Msgbox "错误行:" & Erl & "错误信息:" & Error
Exit Sub
End Sub
- 把一个文件夹下面所有txt文件导入notes
- 列出一个文件夹下面的所有文件
- 在网上找了一个读取文件夹下面的所有文件到txt的code 已验证
- 查找某个文件夹下面的所有的文件 和 所有后缀名为".txt"的文件名
- 用C++遍历一个文件夹下面所有的文件
- 在一个文件夹下面的所有文件中查找字符串
- windows下读取一个文件夹下面所有文件的名字
- Java 删除一个文件夹下面的所有文件
- 遍历一个文件夹下面的所有文件MFC版本
- java遍历一个文件夹下面的所有文件
- c++如何获取一个文件夹下面的所有文件
- 遍历一个文件夹下面的所有文件MFC版本
- 遍历文件夹下面所有文件
- Linux 把一个文件夹下的所有内容复制到另一个文件夹下面
- 将一个文件夹下的所有文件后缀改成.txt
- js操作客户端:把某一个文件夹下面的所有的文件copy到目标文件夹
- 用java扫描指定文件夹下面所有以.txt, .log结尾的文件,
- 读取一个文件夹下所有的txt文件,并保存到一个txt文本中
- asp.net 怎样对label进行绑定
- 2. Hello,kernel模块实例
- 转《浅谈数据库设计技巧》
- uCOS事件控制块__任务与任务间的通信过程
- 【J2ME】ChoiceGroup
- 把一个文件夹下面所有txt文件导入notes
- 转: 使用 WinForms ReportViewer 控制項
- 关键字static
- 深入理解C语言指针的奥秘
- SQL语句优化
- jffs2 文件系统
- 人生需要梦想——刘谦
- Symbian按键监听(Monitor key console) 转 - [symbian]
- 16个基于jQuery的实例特效