[ű]
=ļв
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
'űں
Sub Main()
'ļдɾ
ShowFolderInfo
End Sub
Sub ShowFolderInfo()
   Dim fso, fldr, s   '  FileSystemObject ʵ
   Set fso =CreateObject("Scripting.FileSystemObject")
   '  Drive 
   Set fldr =fso.GetFolder("c:")
   ' ӡļ֡
   print "Parent folder name is: " & fldr
   ' ӡ֡
   print "Contained on drive " & fldr.Drive
   ' ӡļ
   If fldr.IsRootFolder =True Then
      print "This is the root folder."
   Else
      print "This folder isn't a root folder." 
   End If
   '  FileSystemObject 󴴽µļС
   fso.CreateFolder ("C:\Bogus")
   print "Created folder C:\Bogus"
   ' ӡļеĻ֡
   print "Basename =" & fso.GetBaseName("c:\bogus")
   ' ɾ´ļС
   fso.DeleteFolder ("C:\Bogus")
   print "Deleted folder C:\Bogus"
End Sub
[]
