如何用VB给文件添加属性备注？

我用VB做了个批量修改文件的小程序，我想改好后还能批量地把事先准备好的资料写到文件的属性备注里（包括标题，主题，作者，关键字，备注）。如图。请问要怎样编写？还有一个，就是用input#读取写好内容的ini文件内容时，为何不能赋给text值？

追问：是啊，没有直接赋值给text啊。不过跟你的代码有点不同，试试你的。谢了。

答案：    楼主您好！你描述的这两个问题我都有相关经验，希望可以帮到你。
    先说第一个问题。Windows系统中的每一个文件，都有其对应的ADS信息，你可以尝试比较一个文本文件和一个图像文件的摘要属性，会发现图像文件的属性里除了标准的标题、关键字、备注等信息之外，还有分辨率、宽度、高度等附加信息，甚至还包括创建此图像文件的软件、拍摄的相机型号等等。这些信息是文本文件没有的，如下图所示：
 
    这些信息被称作一个文件的ADS信息，这是比较专业的说法，一般都叫做文件的摘要属性。
在我编写程序的过程中，我也曾尝试利用代码去修改一些图像文件的摘要属性，以便我的程序访问这些属性，但是却不知道怎么做。于是我在VbGood论坛发帖，求助高手帮忙。虽然没有给出明确的答案，但是却有所收获，我对ADS的了解，也是从这篇帖子开始的。我把链接给你，希望对你有帮助：
http://www.vbgood.com/thread-97850-1-1.html
起初我也不知道什么是ADS，于是我就去百度百科找相关资料，这里是相关链接： http://baike.zhaoxi.net/view/3601204.htm
    了解相关知识后，我便继续在网上发帖求助，但并没有取得可观的结果。然而，虽然无法修改这些ADS信息，但是可以读取，我找到了读取ADS信息的方法，并编写了很多这方面的函数，在VBGOOD论坛也有相关发帖。如果您有需要，可以联系我，我发给你。
    根据楼主的问题描述，您说编写了批量修改文件的小程序，不知是否能够修改这些ADS信息呢？估计不行吧，要不你也不会求助了。
 
    说第二个问题。我想直接给你一个实例，就能说明问题了。
Private Sub readIni()  
 '声明并初始化变量
  Dim filName As String
      filName = "C:\test.ini"
  Dim tem As String
      tem = ""
 '检查并打开文件
  If Dir(filName) = "" Then
     MsgBox "文件不存在！"
   Else
     Open filName For Input As #1
          Do While Not EOF(1) '循环至文件尾
             Line Input #1, tem ' 读取一行，保存在临时变量tem中
             Text1.Text = Text1.Text & vbCrLf & tem ' 每读取一行，就把该行的内容写入到文本框中（用 vbCrLf 换行）
          Loop
     Close #1
  End If
  
End Sub
 
补充说明：用【Line Input #文件号 , 变量名】 读取文件内容时，读取的内容必须用一个变量来保存。
 
希望上述回答能够解决您的问题。若还有疑问，请联系我。
 
第一个我还不知道该怎么做，第二个不要直接给text赋值，应该先给一个变量赋值。比如，将text的multiline设为true，然后用以下代码：

dim s as string 

open "c:\123.ini" for input as #1

while not eof(1)

line input #1,s 

text1=text1 & s & vbcrlf 
wend 
close #1

这样应该可以。
在工程属性里添加。
   爱一个人不需要固定的星座  只要是自己 喜欢 不管那莫多  

上一个：vb 托盘的这个代码怎么写呢
下一个：VB制作简单计算器问题，关于加法