忍者ブログ

名もないSEの備忘録

仕事や気になったことをわすれないように。。。。。


[PR]

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

LotusScript - ポータブルデバイスにファイルをコピー

メモ (サンプルコード)
ポータブルデバイスのフォルダを選択し、ファイルをコピーまたは移動 (Shell.Applicationを使用)

  コピー:copyFol.copyHere item
  移動:copyFol.moveHere item

Sub Click(Source As Button)

Dim ShellApp As Variant
Dim fol As Variant
Dim folItem As Variant
Dim SrcFol As Variant
Dim copyFol As Variant
Dim ParentFolderObject As Variant
Dim strDirectoryPath As String
Dim selectFolderTitle As String
Dim selectFolder As String
Dim tempFolder As String
Dim i As Integer


tempFolder = "C:\temp"
Set ShellApp = CreateObject("Shell.Application")
Set fol = ShellApp.BrowseForFolder(0, "ポータブル デバイス上のフォルダーを選択してください。", 0, "")

If fol Is Nothing Then
Msgbox "フォルダを選択してください。"
Exit Sub
Else
Print fol.Title
Print fol.Self.Path

End If

selectFolderTitle = fol.Title
selectFolder = fol.Self.Path


Print "selectFolder: " & selectFolder

' CStr() でキャストする必要しないとエラーが発生
Set SrcFol = ShellApp.Namespace(Cstr(tempFolder))
Set copyFol = ShellApp.Namespace(Cstr(selectFolder))

Dim folder As Variant
Dim item As Variant
Dim chkItem As Variant
Dim copyFolder As Variant

Set folder = SrcFol.Items()
Set copyFolder = copyFol.Items()

If copyFolder.Count > 0 Then
For i = 0 To copyFolder.Count - 1
Set chkItem = copyFolder.Item(Cint( i )) ' CInt() でキャストする必要しないと正常に動作しない
If chkItem.IsFolder = True Then
Print "copyフォルダ" & chkItem.Name
Else
Print "copyフォルダ file 有" & chkItem.Name

Exit Sub
End If
Next

End If

For i = 0 To folder.Count - 1
Set item = folder.Item(Cint( i )) ' CInt() でキャストする必要しないと正常に動作しない
strMsg = strMsg & item.Name & " / " & Cstr(item.Size) & " / " & Cstr(item.ModifyDate) & Chr(13) & Chr(10)
Print strMsg
'移動の場合
'copyFol.moveHere item
'コピーの場合
copyFol.copyHere item
Next
Msgbox strMsg


End Sub


PR


[Top]

にほんブログ村 IT技術ブログ IT技術メモへ
【意外と知らないIT用語】ドメインって何? お名前.com

Comment

John

Keep working ,impressive job! cfeegcdedkdcckdd

Good info

Very nice site!

Good info

Very nice site!

John

Hi, Neat post. There's a problem with your website in internet explorer, would test this IE still is the market leader and a good portion of people will miss your great writing due to this problem. kegddkkfdeedkfdd
お名前
タイトル
E-MAIL
URL
コメント
パスワード




ランキングに参加しています。
にほんブログ村 IT技術ブログへ にほんブログ村 IT技術ブログ IT技術メモへ にほんブログ村 サラリーマン日記ブログ 30代サラリーマンへ にほんブログ村 サラリーマン日記ブログへ

Copyright © 名もないSEの備忘録 : All rights reserved

TemplateDesign by KARMA7

忍者ブログ [PR]

管理人限定

Google Adsense




NTTナレッジ・スクウェア株式会社

にほんブログ村 IT技術ブログ

にほんブログ村 IT技術ブログ IT技術メモへにほんブログ村 IT技術ブログ 開発言語へ

ブログランキング

カレンダー

09 2017/10 11
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31

コメント

[03/02 まちこ]
[06/03 Smithd276]
[04/26 Pharmd247]
[04/25 Pharmk369]
[04/23 Smitha583]

ブログ内検索

ネットショッピング&じゃらん

忍者カウンター