2011年 07月 21日
撮像ソフトでクラウドストレージを使う その2 |
前回は動作についてお知らせしました。
実際の使い方について
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)