vb.net修改文件 vbs 文件改名

VB.net如何提取system并修改文件安全属性？

将以下代码保存到模块中vb.net修改文件：

Declare Function GetPrivateProfileString Lib "kernel32" Alias _

"GetPrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileStringByKeyName Lib "kernel32" Alias _

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpString As String, _

Public Function GetIniParam(NomFichier As String, NomSection As String, NomVariable As String) As String

Dim ReadString As String * 255

Dim returnv As String

Dim mResultLen As Integer

mResultLen = GetPrivateProfileString(NomSection, NomVariable, "(Unassigned)", ReadString, Len(ReadString) - 1, NomFichier)

If IsNull(ReadString) Or Left$(ReadString, 12) = "(Unassigned)" Then

Dim Tempvalue As Variant

Dim Message As String

Message = "配置文件 " NomFichier " 不存在."

returnv = ""

Else

returnv = Left$(ReadString, InStr(ReadString, Chr$(0)) - 1)

End If

GetIniParam = returnv

End Function

Public Function WriteWinIniParam(NomDuIni As String, sLaSection As String, sNouvelleCle As String, sNouvelleValeur As String)

Dim iSucccess As Integer

iSucccess = WritePrivateProfileStringByKeyName(sLaSection, sNouvelleCle, sNouvelleValeur, NomDuIni)

If iSucccess = 0 Then

WriteWinIniParam = False

Else

WriteWinIniParam = True

End If

End Function

调用方法vb.net修改文件：

Call WriteWinIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "AppName", txtAppName.Text)

txtFile.Text = GetIniParam(App.Path "\LiveUpdate.ini", "LiveUpdate", "FILES1")

相关问答

Q1: VB.NET修改txt文件指定行？

.or Example:

1.txt文件内容如下:

The 1st line.

#The 2nd line.

The 3rd line.

The 4th line.

.

修改第二行内容,将#除去.修改后的文本如下:

The 1st line.

The 2nd line.

The 3rd line.

The 4th line.

1 输入方式打开原文件 1.txt；

2 输出方式打开新文件 2.txt；

3 逐行 Line Input 从 1.txt 中读数据vb.net修改文件，Print 写入 2.txtvb.net修改文件，直至要修改的行；

4 丢弃从 1.txt中读出的要修改的行vb.net修改文件，将新内容行写入 2.txt；

5 仿照第 3 步，将其余的行从 1.txt 复制到 2.txt。

6 关闭两个文件

7 删除1.txt，将 2.txt 的文件名改为原来 1.txt 的。

Q2: VB.NET中，文件对话框（OpenFileDialog）显示某种设定的文件类型需要修改什么属性？

Filter 属性设置当前文件名筛选字符串，该字符串确定出现在对话框的“文件类型”框中的选项。

openFileDialog1.InitialDirectory = "c:\\" ;

openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" ;

openFileDialog1.FilterIndex = 1 ; // 获取或设置文件对话框中当前选定筛选器的索引；

openFileDialog1.RestoreDirectory = true ;

对于每个筛选选项，筛选器字符串都包含筛选器说明，后接一垂直线条 (|) 和筛选器模式。不同筛选选项的字符串由垂直线条隔开。

Q3: 怎么用VB.NET更改文件扩展名

以修改“C:\abc.txt"为bat为例。

Public Class Form1

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

Dim Myfile As String

Myfile = IO.Path.ChangeExtension("C:\abc.txt", ".bat")

Microsoft.VisualBasic.FileSystem.Rename("C:\abc.txt", Myfile)

End Sub

End Class

vb.net修改文件的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs 文件改名、vb.net修改文件的信息别忘了在本站进行查找喔。