いいね!数

0

閲覧数
570

お世話になっております。

クラシックノーツR8.5.3です。

スクリプトで、あるPCのローカルのフォルダ内のファイルすべてを、新規文書に添付したいです。

フォルダ名は分かりますが、ファイル名は不明という状態です。

ファイル名が分からずに、文書にファイル添付するという事例を聞いたことがなく、

調べても出てこなかったのですが、そのような方法はありますでしょうか?

 

方法がなければ、別途、ファイル名をマスタとしてノーツに取り込んで、一つずつ

ファイル名をしていしながら添付していこうと思います。

 

宜しくお願い致します。

サーバー情報: | クライアント情報: | 
カテゴリ:アプリ開発 - Notes アプリ | タグ:
  | 質問日時:2017/05/11 11:24:15

回答・コメント

いいね!数

0

Dir 関数があるので、ヘルプを参照されては。

 

 

文書docにパスFilePath,拡張子FileExtが指定されている時のサンプル

Dim Filepath As String, fileName As String
    
    '拡張子条件
    If    doc.FileExt(0)="" Then
        pathName$ = doc.FilePath(0)+"\*.*"
    Else
        pathName$ = doc.FilePath(0)+"\*."+doc.FileExt(0)
    End If
    
    If pathname$="" Then
        Messagebox "保存場所が指定されていません" , 16 , "処理を中止します"
        End
    End If
    
    fileName$ = Dir$(pathName$, 0)

    Do While fileName$ <> ""

・・・

'添付処理抜粋

Set object = Rtitem.EmbedObject( EMBED_ATTACHMENT, "", doc.FilePath(0)+"\"+filename$, "" )

・・・

            
        fileName$ = Dir$()
        
    Loop

回答日時:2017/05/11 12:09:30

いいね!数

0

ありがとうございました!

方法があってよかったです。

自分で調べてみます。

回答日時:2017/05/11 12:00:55