忍者ブログ

名もない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

Notes - Agent失敗

Agent(エージェント)が失敗している。
調べると以下のエラーが・・

Agent Manager: Error validating execution rights

アドレス帳を開いて、サーバー文書を開いてアクセス権の再設定

1.サーバー文書を開く。

2.セキュリティタブを開く。

3.「可能なプログラムの制限」のカテゴリにユーザーを追加
 
 ・制限なしで署名または実行:
 ・他のユーザーとして実行するエージェントを署名:
 ・制限付き LotusScript/Java エージェントの署名または実行:
 ・シンプルアクションと式エージェントの実行:
 ・他のユーザーとして実行するスクリプトライブラリを署名:
 

サーバー再起動後、Agentを起動。

正常に動作。


[Top]

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

Notes - 文書に添付ファイルが存在する場合、ビューにクリップマークを表示

メモ
 文書に添付ファイルがあるかどうかを判別し、添付ファイルがある場合は、添付ファイルのアイコン (5 番)
 
  @If(@Attachments;5;0)

   
  
アイコン
 


[Top]

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

Notes - アーカイブできない

メールボックスがいっぱいになってきたので、
アーカイブを実施するとエラーが発生。

 エラー:「サーバーへのパスが見つかりません。接続のトレースは、[プリファレンス] ダイアログの [トレース] (Notes) または、Trace コマンド (Domino) を使用します。」

メールボックスを開けるし、Pingも通る。なお且つその他のNotesDBも開ける。

調査すると、アーカイブの設定の基本タブの内容の箇所でアーカイブ先がサーバーになっている。
通常、ローカルワークステーションだったはず。

ヘルプを見てLotus Notes クライアントベース(実行先)をローカルにする必要が
あるたみたいが、ローカルに変更してもアーカイブ先がサーバーのままだ。

なぜ?

現状

  現在の種類
    アーカイブの実行場所:ローカルワークステーション
    アーカイブ元のサーバー:XXXXX
    アーカイブ先サーバー:ローカル <= ここがおかしい
    
いろいろ調べるとLotus Notes クライアントベース(実行先)をローカルではなくlocalにすると正常に
アーカイブできた。
これは、おそらくマルチ言語対応している際に、文字だけ変えて中のコードを変えていないのが
原因ではないかとおもう。 これはバグ?

  変更内容 アクション - アーカイブ - 設定 - 基本タブ
   アプリケーションで実行するアーカイブの種類
    ・Lotus Notes クライアントベース(実行先): ローカルからlocalに変更
    
   現在の種類
    アーカイブの実行場所:ローカルワークステーション
    アーカイブ元のサーバー:XXXXX
    アーカイブ先:ローカルワークステーション <= ここが変更されていることを確認
    
正常にアーカイブができた。


[Top]

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

Domino Designer: 行番号を表示

Domino Designerを開きます。
プリファレンスの [一般]-[エディター]-[テキスト・エディター] を開き、
「行番号の表示」にチェックをいれます。
デフォルトではオフになっています。


[Top]

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




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

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

TemplateDesign by KARMA7

忍者ブログ [PR]

管理人限定

Google Adsense




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

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

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

ブログランキング

カレンダー

09 2018/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]

ブログ内検索

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

忍者カウンター