13518219792
给你个方法原型：
创新互联专注于蓬江企业网站建设,响应式网站建设,商城网站建设。蓬江网站建设公司,为蓬江等地区提供建站服务。全流程按需求定制网站，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
File.Copy("~\*.*","~\",Boolean)第一个参数是String,指定原文件的Path；
第二个参数是String,指定拷贝目标Path；
第三个参数是Boolean，表示覆盖同名文件。
自己修改一下即可。
，如果客户终端非常多的时候，这就会是一项很麻烦的工作，一方面要安排我们的应用程序，另一方面要安装Oracle客户端，而且还要对Oracle客户端进行NET EASY配置，真是不胜其烦。
为此我研究了很久，现在终于做到了可以把Oracle客户端和应用程序一起打包，又自己用程序来配置NET EASY，刚好前两天有两个小弟问我如何把客户端打包和用程序配置NET EASY的问题，我今天就在这里说一下。
由于时间问题，今天就只能讲一下客户端打包的问题，另一个问题我会在下一篇给大家讲一下。
1、打包要知道的问题：
A、要打包哪些文件。
B、如何修改注册表。
C、如何设置环境变量。
D、打包使用哪些工具。
2、打包要使用的文件：
我们先找一个装有Oracle的机器，把以下的文件打包。为了保证Oracle能正常访问，我们需要保持原目录结构不变。
A、$ORACLE_HOMEBIN下边所有DLL，IMP.EXE，EXP.EXE，SQLPLUS.EXE，SQLPLUSW.EXE。($ORACLE_HOME指的是ORACLE的主目录,比如D:ORACLEORA8I)。
B、$ORACLE_HOMEnetwork目录下的三个目录：Admin、mesg、tnsapi，把它们全部打包。
C、$ORACLE_HOMEocommonnls目录。
D、$ORACLE_HOMEoracoremesg目录。
E、$ORACLE_HOMEsqlplus下的两个目录：admin、mesg。
3、如何修改注册表：
为不麻烦，我们可以把这个装有Oracle的机器的注册表里边Oracle信息照搬过来。全部照抄。
4、如何设置环境变量：
设置环境变量，我们要在PATH前边加上$ORACLE_HOMEBIN;
5、使用哪些打包工具：
我个人比较喜欢的工具是WiseInstaller，它的功能很强大，能导入整个文件目录（我感觉这一点比Install shilled要好）、导入注册表、也可以设置环境变量，以及设置NT服务等等（我好象是给它做广告似的）。
我们现在就可以使用它来做我们的客户端了。
第一步，先把我说的这些文件目录全部导入到我们的安装工程中去。
第二步，找到设置注册表选项，导入注册表中HKEY_LOCAL_MACHINESOFTWAREORACLE下边所有的注册表值。
第三步，找到环境变量设置选项，在它的PATH那里加上$ORACLE_HOMEBIN。这里的$ORACLE_HOME用来代替。
做完这一切，编译，发布，完成。
6、如何用手工来修改NET EASY：
现在假设我们已经做完了这个安装包，并且把它安装到了我们的电脑上边，那么，在开始菜单上是没有ORACLE这个选项的，如何设置Oracle NET EASY呢？
我们现在暂时可以这样做：
打开我们的Oracle客户端的安装目录，找到NETWORKADMIN子目录下边的tnsnames.ora这个文件，直接对它进行编辑就行了。
比如，我们现在想配置一个叫做NTSERVER的服务名，我们就可以这样写：
NTSERVER =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 机器名)(PORT = 端口号))
)
(CONNECT_DATA =
(SERVICE_NAME = 全局数据库名)
)
)
然后，直接把它加到tnsnames.ora这个文件的后边就行了。
如果NTSERVER这个服务名已经存在的话，我们可以直接修改它的机器名、端口号和全局数据库名就可以了。
如果想继续编辑之前的文档，在TXT文件尾部继续添加文本，那么还需要在函数后边加个参数。
VB 代码
方法1：
Dim sw As StreamWriter = New StreamWriter("C:\temp\test.txt")
sw.Write("abc" vbCrLf)
sw.Close()
Dim sw2 As StreamWriter = New StreamWriter("C:\temp\test.txt", True)
sw2.Write("456" vbCrLf)
sw2.Close()
方法2：
My.Computer.FileSystem.WriteAllText("test.txt", "This is test Text", True)
方法3：
System.IO.File.AppendAllText("c:\temp\test.txt", "this is extra test file")
详见：“网页链接”
一、二进制文件读写
1、写二进制数据到指定目录
==将barray字节数组中的数据创建在strFilename目录文件下，存储格式为二进制，False表示不添加，直接覆盖创建。
2、从指定路径下读取二进制数据到数组
==将目录中的文件读取到barry字节数组中，即读取二进制文件。
二、字符文件的读写
1、 将txtFile控件中的字符写到srtFileName指定目录,以创建方式。
2、从srtFileName目录中的文件读取到txtFile控件
用 io.Directory.Exists 判断文件夹是否存在。
再用 My.Computer.FileSystem.CopyDirectory() 复制。
这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.copy的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。
