vbÈçºÎ»ñµÃÎļþµÄ´´½¨Õß - .NET¼¼Êõ / VB.NET
ÈçÌâ vb.netдwindows·þÎñ³ÌÐò
ÈçºÎ»ñµÃÎļþµÄ´´½¨ÕßÕâÒ»ÊôÐÔ ÓÃscripting.folderµÄÄĸöÊôÐÔ£¿
»¹ÊÇÐèÒªÓñðµÄÀ´ÊµÏÖѽ£¿
´´½¨ÕßÓ¦¸ÃÊÇ°²È«·¶³ë£¬¿´¿´Õâ¸öÀ࣬DirectorySecurity£¬²»È·¶¨
File.GetAttributes ¶ÁÈ¡ÎļþÊôÐÔ
Ö»¶ÁÎļþÊôÐÔÄÄÓд´½¨ÕßµÄÐÅÏ¢¡£DirectorySecurityÀàµÄ×ÊÁÏÎÒ¿´ÁËÏ£¬Óеã¸ßÉûÓÐÊÕ»ñ
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æȨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......