189 8069 5689
在网上收到一些关于文件操作的列子，现在和大家分享一下，以下的示例代码将向您展示如何使用VB．NET FileInfo来拷贝、移动和删除文件，以及如何使用DirectoryInfo来移动和删除文件夹。（注意：为了运行这些示例，您需要将这条语句：Imports System．IO，添加到您的表单或模块的最顶部。）
创新互联建站专注于柯坪企业网站建设,成都响应式网站建设,商城网站制作。柯坪网站建设公司,为柯坪等地区提供建站服务。全流程定制网站建设，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务
VB．NET FileInfo示例 拷贝一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．CopyTo（"C：abc2．txt"， True）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了拷贝一个文件，我们使用FileInfo对象中的CopyTo方法并指明我们计划要拷贝的目标文件的全名。 移动一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．MoveTo（"C：abc3．txt"）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了拷贝一个文件，我们使用FileInfo对象中的CopyTo方法并指明我们计划要移动的目标文件的全名。 删除一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．Delete（）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了删除一个文件，我们使用FileInfo对象中的Delete方法。 VB．NET FileInfo DirectoryInfo示例 移动一个文件夹 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．MoveTo（"C：Folder2"）4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录，为了移动一个文件夹，我们使用DirectoryInfo对象的MoveTo方法，并指明我们所移动的文件夹的完整目标路径。 删除一个文件夹 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．Delete（）4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录，为了删除一个文件夹，我们使用DirectoryInfo对象的Delete方法。） 作者：未知 来源：网络
代码已测试。
一、测试需要的INI文件。名称为“setinfo.ini”，存放路径为你解决方案里“Bin“文件夹的”Debug“文件夹里。
内容：
[Location]
pnlTime.Location.X=787
pnlTime.Location.Y=0
[TopMost]
Top=True
二、操作INI文件的类。新建一个类，类中内容为：
Public Class Class1
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Int32, _
ByVal lpFileName As String _
) As Int32
End Class
三、界面代码：
Imports System.IO 'for path
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
getINI()
End Sub
Private Sub getINI()
Dim iniclass As New Class1 '
Dim myBf As String 'get set_info 开辟存储的内存
myBf = New String(CChar(""), 256)
Dim myFN As String '配置文件的文件路径
myFN = Path.Combine(My.Application.Info.DirectoryPath, "setinfo.ini")
Dim myAN As String 'Application_NAME,也是Section名称
myAN = Me.TextBox1.Text
Dim myKN As String 'KEY_NAME,关键字名称
myKN = Me.TextBox2.Text
Class1.GetPrivateProfileString(myAN, myKN, "", myBf, myBf.Length, myFN) '调用读取INI文件的操作
TextBox3.Text = Microsoft.VisualBasic.Left(myBf, InStr(myBf, Chr(0)) - 1) '截取有用部分,有必要
End Sub
End Class
四、测试截图如下
你可以将C#写的类输出为库文件，就是dll文件，然后用VB点虐 直接调用就可以了。因为C#生成库的时候会被编译成IL，VB点虐 是可以直接使用的，希望可以帮到你。
在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。