vb.net嵌入2文件夹 vbnet using

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net对文件的操作，在线等

Dim txtStr As String = "F:\te.txt" 'txt文件路径

Dim endname As String = "doc" '文件类型

Dim folderStr As String = "e:\file\我的文档\毕业设计" '目录位置

Dim str() As String = IO.Directory.GetFiles(folderStr)

For i = 0 To str.Length - 1

Dim itendname As String = Strings.Right(str(i), str(i).Length - Strings.InStrRev(str(i), "."))

Dim strs As String = ""

If itendname = endname Then

strs += str(i) + vbCrLf

End If

IO.File.AppendAllText(txtStr, strs)

相关问答

Q1: vb.net如何打开选定文件夹下所有TXT文件，读取数据，写入数据，并保存数据至新的文件

Using FolderBrowserDialog As New FolderBrowserDialog

If FolderBrowserDialog.ShowDialog = Windows.Forms.DialogResult.OK Then

Dim 资料夹 As String() = System.IO.Directory.GetFiles(FolderBrowserDialog.SelectedPath, "*")

For Each 文件 In 资料夹

MsgBox(My.Computer.FileSystem.ReadAllText(文件)) '读取数据

My.Computer.FileSystem.WriteAllText(文件, "数据", False) '写入数据

End If

End Using

Q2: VB.net遍历某个文件夹，并读取子目录中的指定文件

vb.net：

Dim

path

System.IO.Directory.GetFiles("D:\Log\abc",

"*.txt",

SearchOption.AllDirectories)：搜索该路径下vb.net嵌入2文件夹的所有txt类型vb.net嵌入2文件夹的目录及子目录

path.AddRange(path)

Dim

_RecordInfo

String

Dim

_Reader

StreamReader

_Reader

New

StreamReader(file,

System.Text.Encoding.Default)：'以Default编码vb.net嵌入2文件夹的形式读取file文件(文件写入vb.net嵌入2文件夹的编码要与读取的编码一致)

Q3: vb.net打包问题！！！会的重重有赏！！！

你装没装MSDN？上面讲得可详细了。

下面是一个教程，供参考：

在VB.NET中如何制作安装程序，

给你个例子！创建 Windows 应用程序在“文件”菜单上指向“新建”，然后选择“项目”。

在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“Windows 应用程序”。在“名称”框中，键入“我的记事本”。

此项目被添加到解决方案资源管理器中，并且窗体设计器打开。在“工具箱”中选择“Windows 窗体”选项卡，并将“按钮”(Button) 控件拖到窗体中。

双击 Button 控件为该按钮添加事件处理程序。在事件处理程序中添加下面的代码：

Shell("Notepad.exe", AppWinStyle.NormalFocus)

这将启动 Notepad.exe 并将焦点对准它。在“生成”菜单上，选择“生成我的记事本”该应用程序。

创建部署项目在“文件”菜单上指向“添加项目”，然后选择“新建项目”。

在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中，键入“我的记事本安装程序”。

项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“属性”窗口中，选择 ProductName 属性，并键入“我的记事本”。

注意 ProductName 属性确定应用程序显示在文件夹名称以及“添加/删除程序”对话框中的名称。

将 Windows 应用程序添加到安装程序中在解决方案资源管理器中选择“我的记事本安装程序”项目。在“文件系统编辑器”中，选择“应用程序文件夹”节点。

在“操作”菜单上，选择“添加”-“项目输出”。

在“添加项目输出组”对话框中，从“项目”下拉列表中选择“我的记事本”。

从列表中选择“主输出”组，并单击“确定”。

在“生成”菜单上选择“生成我的记事本安装程序”。

部署应用程序（基本安装程序）如果正在执行一个完整的演练过程，可以跳过此步骤。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“项目”菜单上选择“安装”。

这将运行该安装程序并在开发计算机上安装“我的记事本”。其余步骤演示可选的部署功能。为 Windows 应用程序创建快捷方式此步骤将为您的应用程序创建一个快捷方式，安装过程中，会将该快捷方式放置到目标计算机的桌面上。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“文件系统编辑器”中，选择“来自‘我的记事本’的主输出”节点。

在“操作”菜单上，选择“创建主输出来自我的记事本（活动）的快捷方式”。

这将添加一个“主输出来自我的记事本（活动）的快捷方式”节点。重命名“主输出来自我的记事本（活动）的快捷方式”快捷方式。

选择“主输出来自我的记事本（活动）的快捷方式”，并将其拖到左窗格的“用户桌面”文件夹中。

为 Windows 应用程序创建文件关联此步骤为“我的记事本”添加文件关联，以便双击 .vbn 文件时启动“我的记事本”应用程序。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“文件类型”。

在“文件类型编辑器”中选择“目标计算机上的文件类型”节点。在“操作”菜单上，选择“添加文件类型”。

将添加一个“新文档类型 #1”节点，而且该节点将打开，以便您重命名。将“新文档类型 #1”重命名为 Vbn.doc。

在“属性”窗口中，将文件类型的 Extension 属性设置为 vbn。

选择 Command 属性并单击“省略号”() 按钮。在“选择项目中的项”对话框中，定位到“应用程序文件夹”，并选择“来自‘我的记事本’的主输出”。

为 Windows 应用程序添加注册表项此步骤将一个注册表项以及相应的值添加到注册表中。运行时，可以从应用程序代码中引用此注册表项以检索每用户信息。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上，指向“编辑器”，并选择“注册表”。

选择“HKEY_CURRENT_USER”节点并将其展开，然后展开“Software”节点，并选择“[Manufacturer]”节点。

注意 “Manufacturer”节点两边带有括号，这表示它是一个属性。它将被输入的部署项目的 Manufacturer 属性值所替代。

在“操作”菜单上，选择“新建”-“键”。

重命名 UserChoice 键。

在“操作”菜单上，选择“新建”，再选择“字串值”。

重命名 TextColor 值。

在“属性”窗口中，选择 Value 属性，并输入 Black。

添加自定义安装对话框此步骤添加并配置一个在安装期间显示的自定义用户界面对话框。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。

在用户界面编辑器中，选择“安装”节点下的“启动”节点。

在“操作”菜单上，选择“添加对话框”。

在“添加对话框”对话框中，选择“复选框 (A)”。

在“操作”菜单上，选择“上移”两次，将“复选框 (A)”对话框放置在“选择安装文件夹”对话框之上。

在“属性”窗口中，将 BannerText 属性设置为“示例”。

将 BodyText 属性设置为“‘安装示例文件’复选框控制是否安装示例文件。如果处于未选中状态，则不安装示例。”

将 CheckBox1Label 属性设置为“要安装示例吗？”。

将 Checkbox2Visible、Checkbox3Visible 和 Checkbox4Visible 属性设置为 false。这将隐藏其他复选框。

添加 Samples 文件夹此步骤创建一个 Samples 子文件夹，它将被安装到 Application 文件夹的下面。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“文件系统”。“应用程序文件夹”仍应被选中。

从“操作”菜单上指向“添加”，然后选择“文件夹”。

将“新建文件夹 #1”重命名为“示例”。

为应用程序创建示例文件此步骤创建两个简单的文本文件，如果用户在自定义对话框中选择“安装示例”选项，将安装这两个文本文件。使用记事本或其他文本编辑器创建一个包含文本“这是 rules.vbn”的文本文件，然后将其保存为 Rules.vbn。

注意若要防止记事本自动添加 .txt 扩展名，请从“文件类型”下拉列表中选择“所有文件”。

创建另一个包含文本“这是 memo.vbn”的文本文件，将其保存为 Memo.vbn。

将示例添加到安装程序中此步骤将示例文件添加到 Samples 文件夹中，并设置决定是否安装该文件的条件。在解决方案资源管理器中选择“我的记事本安装程序”项目。从“视图”菜单中指向“编辑器”，选择“文件系统”，然后选择“示例”文件夹。

从“操作”菜单上指向“添加”，然后选择“文件”。将 Rules.vbn 和 Memo.vbn 文件添加到“示例”文件夹中。

在文件系统编辑器中选择 Rules.vbn。

在“属性”窗口中，将 Condition 属性设置为 CHECKBOXA1=1。运行安装程序时，只在自定义的复选框被选中时才安装 Rules.vbn 文件。

在文件系统编辑器中选择 Memo.vbn 文件。

在“属性”窗口中，将 Condition 属性设置为 CHECKBOXA1=1。运行安装程序时，只在自定义的复选框被选中时才安装 Memo.vbn 文件。

添加启动条件来检查 Internet Explorer 版本此步骤检查在目标计算机上是否安装了 Internet Explorer 5.0 或更高版本，如果未安装所需版本的 Internet Explorer，将停止安装过程。注意此步骤旨在阐述启动条件的概念；“我的记事本”应用程序实际上并不依赖于 Internet Explorer。

在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“启动条件”。

在启动条件编辑器中，选择“目标计算机上的要求”节点。

在“操作”菜单上，选择“添加文件启动条件”。

将在“搜索目标计算机”节点下面添加一个“搜索 File1”节点，而在“启动条件”节点下面添加一个“Condition1”节点。将“搜索 File1”重命名为“搜索 Internet Explorer”。

在“属性”窗口中，将 FileName 属性设置为 Iexplore.exe，将 Folder 属性设置为 [ProgramFilesFolder]，将 Depth 属性设置为 2，将 MinVersion 属性设置为 5.00。

选择“Condition1”节点。

将 Message 属性设置为“该程序需要 Microsoft Internet Explorer 5.0 或更高版本。请安装 Internet Explorer 并重新运行‘记事本’安装程序。”

设置部署项目的可选属性此步骤设置一个属性，以便在目标计算机上没有正确版本的 Windows 安装程序时，自动安装 Windows 安装引导程序文件。在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上，选择“属性页”。

在“我的记事本安装程序”属性页中，选择“引导程序”下拉列表，然后选择“Windows 安装引导程序”。

在“生成”菜单上选择“生成我的记事本安装程序”。

在开发计算机上安装“我的记事本” 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“项目”菜单上选择“安装”。

这将运行该安装程序并在开发计算机上安装“我的记事本”。将“我的记事本”部署到其他计算机上在 Windows 资源管理器中，定位到项目目录并查找所生成的安装程序。默认路径是 \documents and settings\yourloginname\我的记事本安装程序\project configuration\我的记事本安装程序.msi，默认“项目配置”是“Debug”。

将该目录中的我的记事本安装程序.msi 文件以及其他所有文件和子目录复制到另一台计算机上。

注意若要在未连网的计算机上进行安装，请将文件复制到 CD-ROM 等传统媒体中。

在目标计算机上双击 Setup.exe 文件来运行安装程序。

测试安装验证快捷方式是否安装到了桌面上以及是否能够正确启动“我的记事本”应用程序。

使用“控制面板”中的“添加/删除程序”工具卸载该应用程序。

提示若要从开发计算机上卸载，则在“项目”菜单上选择“卸载”。

Q4: 如何用VB.NET增加右键菜单并读取文件(文件夹)地址?

这个简单vb.net嵌入2文件夹，vb.net嵌入2文件夹我以前用VB6就写过一个类似的程序。不过这个程序需要提供命令行参数哟。

就算用VB.NET编写，也必须要有接收这个命令行参数的，不然无法实现显示文件或文件夹路径。

下面是注册表文件的内容，vb.net嵌入2文件夹你也可以用程序来写入注册表。

*表示所有文件，你可以随便修改。

最后面的%1，表示当前文件或文件夹