vb.net覆盖同名文件 vba复制文件同地址并重命名

VB.net如何复制一个文件夹下所有同名文件到另一文件夹

'这是VBvb.net覆盖同名文件的要先引用Microsoft Scripting RunTimevb.net覆盖同名文件，下面vb.net覆盖同名文件的例子是找叫cmd.xxxvb.net覆盖同名文件的文件的

Private Sub Command1_Click()

Dim m_objFSO As New FileSystemObject

Dim objFolder As Scripting.Folder '文件夹对象

Dim objFile As Scripting.File '文件对象

Set objFolder = m_objFSO.GetFolder("c:/test")

For Each objFile In objFolder.Files

Dim filenames() As String

filenames = Split(objFile.Name, ".")

If filenames(0) = "cmd" Then

FileCopy objFile.Path, "c:/TestCMD/" "newName." filenames(1)

End If

Next objFile

End Sub

-----------------------------------这是VB.net的--------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

Dim files() As String

files = System.IO.Directory.GetFiles("C:/test")

For i = 0 To files.Length - 1

Dim filenames() As String

filenames = files(i).Substring(files(i).LastIndexOf("\") + 1).Split(".")

If filenames(0) = "cmd" Then

FileCopy(files(i), "c:/TestCMD/" "newName." filenames(1))

End If

Next

End Sub

相关问答

Q1: 用VB.net打包后的软件，如何支持覆盖安装呢？

，如果客户终端非常多的时候，这就会是一项很麻烦的工作，一方面要安排我们的应用程序，另一方面要安装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这个服务名已经存在的话，我们可以直接修改它的机器名、端口号和全局数据库名就可以了。

Q2: VB.NET 怎么将FTP文件移动到FTP下另一个目录中去

给你个方法原型：

File.Copy("~\*.*","~\",Boolean)第一个参数是String,指定原文件的Path；

第二个参数是String,指定拷贝目标Path；

第三个参数是Boolean，表示覆盖同名文件。

自己修改一下即可。

Q3: 请教在VB.net中如何将数据写入txt文件、再从txt文件读出？

软糖来告诉你吧。

VB.net中读写文件主要使用System.IO命名空间。

① 使用 File.ReadAllText 读取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 写入，会覆盖同名的文件。

Dim 要写的内容 As String = ""

File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 写入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加写入。

将上面代码的第二个参数False改为True。

◆ 满意请采纳，谢谢 ◆

Q4: VB.NET2010 如何复制指定目录下按类型的所有文件到另一文件夹 复制后再删除原来的文件？

这段代码的问题是：

首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；

然后file.copy的变量file没有任何声明，也没有初始化赋值等；

最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。

关于vb.net覆盖同名文件和vba复制文件同地址并重命名的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。