人気ブログランキング |


マチナカでリモート天文台やってます。


by makkachi

画像一覧
更新通知を受け取る

メモ帳


カテゴリ

全体
GOTOドライブ
DSIオートガイダー
CCD
New Device
パソコン
望遠鏡
フォーカーサー
観測・撮像
コラム・つぶやき
おすすめサイト
遠隔撮像ソフト
ONSTEP
天文台
ドームコントローラ
遠征
機材レビュー
未分類

最新の記事

マチナカから見る アトラス彗..
at 2020-03-27 14:51
自宅ドーム リモート天文台は..
at 2020-03-26 15:33

最新のコメント

リミットOFFでも地平線..
by makkachi at 12:05
回答ありがとうございます..
by タカヒロ at 10:58
お問い合わせありがとうご..
by makkachi at 09:44

以前の記事

2020年 03月
2020年 02月
2020年 01月
more...

ブログパーツ

記事ランキング

ファン

画像一覧

2011年 07月 21日 ( 1 )

撮像ソフトでクラウドストレージを使う その2

撮像ソフトでクラウドストレージを使う その2_c0061727_12365184.gif

前回は動作についてお知らせしました。
実際の使い方について

VB6のソースコードを紹介します。
**********************************
Sub Cloud_Disk_Save(f As String)

Dim myComputer, sa, GmailPath, fi, myGmail

myComputer = &H11
Set sa = CreateObject("Shell.Application")
Set myComputer = sa.NameSpace(myComputer)

GmailPath = ""

For Each fi In myComputer.Items
If fi.Name = "GMail Drive" Then
GmailPath = fi.Path
Exit For
End If
Next

Set myGmail = sa.NameSpace(GmailPath)
myGmail.CopyHere (f), 0

End Sub
**********************************
引数のところにファイル名又はフォルダ名を入れると
コピーを実行します。
で、ここで注意点なんですが
もともとGmailではこのような使い方を認めていないので
たくさんファイルをコピーしたり大きなサイズのファイルを
送り込んだりすると
Gamil側からアカウントの一時停止をさせられます。
一定期間おくと再び使えるようになりますが
あまり繰り返すのは良くないことだと思います。
ファイルサイズを小さくしてインターバールを大きく取るように
すればよいでしょう。
上の画像は私の撮像アプリに組み込んだ様子です。
by makkachi | 2011-07-21 12:43 | パソコン | Comments(0)