[Indusoft] vbscript 開啟資料夾

-

 [前言]在indusoft中使用vbs還是有蠻多限制，主要是WScript不可以引用，shell也只能引用部分。所以在使用基本vbscript操作時有時候還是會卡一下，在這兒紀錄一下開啟資料夾的語法。




Dim  folderPath, objShell

Set Objshell = CreateObject( "Shell.Application" )
folderPath = "D:\Report"
Objshell.explore folderPath

留言

  1. 匿名2023年5月29日 晚上9:41

    萊恩大叔 您好，我使用indusoft 軟體一段時間，但是我不會vbs語法使用，可是工作上有些事情，還是需要使用vbs的方式取代程式語言的工作會比較順，想請問我需要查看哪個部分的參考書或是教學網，可否提供一些路徑，謝謝

    回覆刪除
  2. Ryan2024年4月18日 上午11:15

    vbs的資源其實很多，早期微軟網頁程式語言asp(沒有.net)就是使用vbs的程式語言，vbs也是微軟所開發的程式語言，這個可以google一下，我相信資料絕對不少。
    另外代理商泓格也有提供相對應的文件
    https://www.icpdas-usa.com/documents/Indusoft%20Web%20Downloads/xpac8000/VBScript_Reference.pdf

    網路的資源還是很多的可以參考
    https://documentation.help/MS-Office-VBScript/VBSTOC.htm

    另外微軟office內建的vba有些簡單的程式還是有資源，運氣好可以直接拿來用。這些可以再找看看，先想想需要什麼功能，再找相對應的程式

    回覆刪除

張貼留言

這個網誌中的熱門文章

[Excel]將圖片放置於儲存格中

-
圖片
前言：忽然要將圖片放在Excel儲存格中，結果小卡了一下。  先將儲存格大小調整成比圖片還大一些 點選圖片後，選擇格式>>對齊>>貼齊格線 在圖片上按右鍵>>大小及內容 屬性設定成大小及位置隨儲存格而變 儲存格變小，圖片變扁(左上)；儲存格拉大則圖片變正常(圖片不會變更大) 儲存格隱藏，圖片會跟著一起隱藏(下)
閱讀完整內容

[軟體]AUTOCAD關於開啟圖面時，字型找不到,而要手動指定成 chineset.shx 字型檔問題

-
圖片
再開起別人的CAD檔，常常會出現找不到字型的情形，因為製圖的人電腦上的自行我們不一定都會有，所以當我們開啟時，通常會跳出下列視窗，要求我們選擇替代的字型。 但是由於筆者使在太懶了，每次都要點這樣的視窗實在不再符合筆者的"史代歐"，所以在G大神的指引之下找到了解決方法。 下圖找不到字型GENIE 我們需要更改字體對映檔，將缺的字體自動對映到其他字體上 首先到字體對映檔位置: C:\Documents and Settings\使用者帳號\Application Data\Autodesk\AutoCAD 版本\版本代號\cht\support\acad.fmp  找到acad.fmp點選右鍵>>開啟檔案>>以記事本開啟  在最下面加入 找不到的;要替代的字體.shx ,爾後 CAD 若找不到字型時會自動指定字型檔。 下列兩行則是將GENIE和AE這兩個字體以chineset.shx替代 GENIE;chineset.shx AE;chineset.shx 就降~~~沒了 參考文獻:http://autocad.bestoforum.net/t3380-topic
閱讀完整內容

[MS SQL]查詢資料庫中每個資料表之列數與資料表大小(容量)資訊。Get size of all tables in database

-
圖片
紀錄一下 USE DatabaseName Go SELECT t.NAME AS TableName, --s.Name AS SchemaName, p.rows AS RowCounts, SUM(a.total_pages) * 8 /1024 AS TotalSpaceMB, SUM(a.used_pages) * 8 /1024 AS UsedSpaceMB, (SUM(a.total_pages) - SUM(a.used_pages)) * 8 /1024 AS UnusedSpaceMB FROM sys.tables t INNER JOIN sys.indexes i ON t.OBJECT_ID = i.object_id INNER JOIN sys.partitions p ON i.object_id = p.OBJECT_ID AND i.index_id = p.index_id INNER JOIN sys.allocation_units a ON p.partition_id = a.container_id LEFT OUTER JOIN sys.schemas s ON t.schema_id = s.schema_id WHERE t.NAME NOT LIKE 'dt%' AND t.is_ms_shipped = 0 AND i.OBJECT_ID > 255 GROUP BY t.Name, s.Name, p.Rows ORDER BY t.Name 參考來源： http://stackoverflow.com/questions/7892334/get-size-of-all-tables-in-database
閱讀完整內容