CreateObject 的 Script (高手請進)
像 CuteFTP 可以使用 CreateObject("CuteFTPPro.TEConnection")
像 Excel 可以使用 CreateObject("Excel.Application")
請問高手,
如何知道一台電腦可以使用哪些CreateObject?可否全部一次列出來?
CreateObject("CuteFTPPro.TEConnection")
CreateObject("Excel.Application")
.
.
.
還有,如何知道每一個CreateObject的使用方式呢?
像 Excel 可以這樣用~
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "Test value"
※ 引述《VElysian (家瑀 致中和)》之銘言：
: 標題: Re: [請問] 有沒有自動寄發mail或上傳FTP的程式呢?
: 時間: Thu Aug 14 21:12:23 2008
:
: ※ [本文轉錄自 EZsoft 看板]
:
: 作者: liumhag () 看板: EZsoft
: 標題: Re: [請問] 有沒有自動寄發mail或上傳FTP的程式呢?
: 時間: Wed Aug 13 09:38:46 2008
:
: ※ 引述《wacca (. )( .)》之銘言：
: : ※ 引述《liumhag ()》之銘言：
: : : 小弟的需求是這樣
: : : 系統固定會排程每日製造出txt檔
: : : 但txt檔是要固定mail給某個人和上傳至FTP
: : : 無奈最多xp好像可能使用 mailto
: : : 但這個我最多只試叫出 outlook express
: : : 沒辦法自動寄出orz...
: : : 有小程式 or script可以自動寄發mail或上傳FTP嗎?
: : : 謝謝
: : 將 c:\localdir\file.txt 上傳到 ftp://wakka:passwd@127.0.0.1/upload
: : ftp -s:cmdlist.txt
: : -- cmdlist.txt ----------------------------
: : open 127.0.0.1
: : wakka
: : passwd
: : cd /upload
: : lcd c:\localdir
: : put file.txt
: : bye
: : -------------------------------------------
:
: 小弟試用CuteFTP有類似的語法可以用 程式如下
:
: ---------------------------------------------
: Set MySite = CreateObject("CuteFTPPro.TEConnection")
:
: MySite.Host = "127.0.0.1"
: MySite.Protocol = "SFTP"
: MySite.Port = 22
: MySite.Retries = 30
: MySite.Delay = 30
: MySite.MaxConnections = 4
: MySite.TransferType = "AUTO"
: MySite.DataChannel = "DEFAULT"
: MySite.AutoRename = "OFF"
:
: MySite.Login = "ID"
: MySite.Password = "PASSWORD"
:
: MySite.Connect
: MySite.Upload "D:\TEST.A07", "/TEMP/TEST.A07"
: MySite.Disconnect
: ----------------------------------------------
: 但此程式是以vbs構成, 想說利用vb製做成exe格式會不會比較方便?
: 另外它所建立的object似乎是CuteFTP自己的
: 也就是得安裝CuteFTP才能使用這個物件, 這樣使用上也有些限制...
: 請問還有更好的替代方案嗎?
:
:
: 謝謝
:
:
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.229.106.198