UFT测试-vbs脚本翻译，

AtEndOfLine Property (FileSystemObject) 
如果文件指针被立即定位在文本文件的行为标记前,返回True;否则返回False

object.AtEndOfLine

Function ReadFileFirstLine(filespec)

   Const ForReading = 1

   Dim fso, theFile, retstring

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set theFile = fso.OpenTextFile(filespec, ForReading, False)

   Do While theFile.AtEndOfLine <> True

      retstring = retstring&theFile.Read(1)

   Loop

   theFile.Close

   ReadFileFirstLine = retstring

   MsgBox(ReadFileFirstLine)

End Function

ReadFileFirstLine("D:\testfile.txt")

====== ====== ====== ====== ===== ====== ======= =====

AtEndOfStream Property (FileSystemObject) 
如果文件指针是在文本文件末,返回true;否则显示False;Read-Only
object.AtEndOfStream
    Function ReadEntireFile(filespec)
       Const ForReading = 1
       Dim fso, theFile, retstring
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set theFile = fso.OpenTextFile(filespec, ForReading, False)
       Do While theFile.AtEndOfStream <> True
          retstring = theFile.ReadLine
       Loop
       theFile.Close
       ReadEntireFile = retstring
    End Function

====== ====== ====== ====== ===== ====== ======= =====

Attributes Property 
设置或返回文件或文件夹的属性。读/写或只读，根据属性。
根据文件,可以式read-write/read-only
object.Attributes [= newattributes] 
object: 是文件或文件夹对象的名称
newattributes: 是指定对象的属性的新值。
Constant    Value    Description 
Normal        0        Normal file. No attributes are set.
ReadOnly    1        Read-only file. Attribute is read/write.
Hidden        2        Hidden file. Attribute is read/write.
System        4        System file. Attribute is read/write.
Volume       8        Disk drive volume label. Attribute is read-only.
Directory    16        Folder or directory. Attribute is read-only.
Archive       32        File has changed since last backup. Attribute is read/write.
Alias                1024    Link or shortcut. Attribute is read-only.
Compressed    2048    Compressed file. Attribute is read-only.

Function ToggleArchiveBit(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   If f.attributes and 32 Then
      f.attributes = f.attributes - 32
      ToggleArchiveBit = "Archive bit is cleared."
   Else
      f.attributes = f.attributes + 32
      ToggleArchiveBit = "Archive bit is set."
   End If
End Function

====== ====== ====== ====== ===== ====== ======= =====

AvailableSpace Property
object.AvailableSpace 
返回用户指定的驱动器或网络共享上的可使用空间量
对象始终是一个驱动器对象
Function ShowAvailableSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "Drive " & UCase(drvPath) & " - " 
   s = s & d.VolumeName   & "<BR>"
   s = s & "Available Space: " & FormatNumber(d.AvailableSpace/1024, 0) 
   s = s & " Kbytes"
   ShowAvailableSpace = s
End Function
====== ====== ====== ====== ===== ====== ======= =====

Column Property (FileSystemObject)
只读,该属性返回一个文本文件中的当前字符位置的列号。
对象始终是一个文本对象的名称。
object.Column
Function GetColumn
   Const ForReading = 1, ForWriting = 2
   Dim fso, f, m
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!" 
   f.Close
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   m =   f.ReadLine
   GetColumn = f.Column
End Function

====== ====== ====== ====== ===== ====== ======= =====

Count Property (Script Runtime)
返回集合中的项或字典对象的数目。只读
object.Count
对象总是在适用于列表中的项目之一的名称
Function ShowKeys
   Dim a, d, i, s   ' Create some variables.
   Set d = CreateObject("Scripting.Dictionary")
   d.Add "a", "Athens"   ' Add some keys and items.
   d.Add "b", "Belgrade"
   d.Add "c", "Cairo"
   a = d.Keys   ' Get the keys.
   For i = 0 To d.Count -1 ' Iterate the array.
      s = s & a(i) & "<BR>" ' Create return string.
   Next
   ShowKeys = s
End Function

====== ====== ====== ====== ===== ====== ======= =====

DateCreated Property
返回指定的文件或文件夹的日期和时间创建。只读。
object.DateCreated 
对象始终是一个文件或文件夹对象。
Function ShowFileInfo(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   ShowFileInfo = "Created: " & f.DateCreated
End Function

====== ====== ====== ====== ===== ====== ======= =====

DateLastAccessed Property 
返回指定文件或文件夹上次访问的日期和时间。只读。
对象始终是一个文件或文件夹对象

Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(filespec)
   s = s & "Created: " & f.DateCreated  
   s = s & "Last Accessed: " & f.DateLastAccessed  
   s = s & "Last Modified: " & f.DateLastModified   
   ShowFileAccessInfo = s
   MsgBox ShowFileAccessInfo
End Function
ShowFileAccessInfo("D:\testfile2.txt")

====== ====== ====== ====== ===== ====== ======= =====

DateLastModified Property
返回指定文件上次修改的日期和时间或文件夹。只读。
object.DateLastModified
对象始终是一个文件或文件夹对象
Function ShowFileAccessInfo(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   s = UCase(filespec)
   s = s & "Created: " & f.DateCreated
   s = s & "Last Accessed: " & f.DateLastAccessed
   s = s & "Last Modified: " & f.DateLastModified
   ShowFileAccessInfo = s
End Function

转载于:https://my.oschina.net/u/3098585/blog/807614