ブレゴさん、酉さん、ありがとうございました。 ブレゴさんのアドバイスの通り、1つずつlogを吐くように コーディングしたところ、コーディングで凡ミスを していたことが判明しました。 お手数をお掛けして申し訳ありません。 Dim workspace as notesUIworkspace 設計の途中で↑フロントエンドの宣言をしていたため、 そこで止まっていました。 (実際に使わなくても、宣言しただけでダメなようですね) 設計し始めたときに使っていたものを消し忘れていたようです。 お礼とお詫びを兼ねて、動くようになったコーディングを 記述させていただきます。 Sub Initialize Dim session As New notessession Dim db As notesdatabase Set db = session.currentdatabase Dim pathName As String Dim fileName As String Dim Filenum As Long Dim file_nm As Variant Dim strFilename As String Dim text As String Dim pnm as string Dim bnm as string Dim nm as string pnm = "\\servername\xxxx\" ' フォルダの場所 bnm = "\\servername\xxxxbkup\" ' バックアップフォルダの場所 nm = "aaa.csv" ' お目当てのファイル名 Filenum = Freefile() pathName = pnm & "*.csv" fileName = Dir$(pathName$, 0) ' ディレクトリ内の最初のファイル名 Do While fileName <> "" ' ディレクトリの中にファイルがなくなるまで If filename = nm Then ' お目当てのファイルなら strFilename = pnm & nm Open strFilename For Input Access Read As Filenum If Len(Filenum) Then Do Until Eof(filenum) Line Input #Filenum,text ' ファイルの各行をtextに取得する ' 処理をここに記述する Loop Close filenum End If nw = Now() nw = Year(nw)*10000+Month(nw)*100+Day(nw) & nm ' 処理日を付けてリネーム Name pnm & nm As bnm & nw ' フォルダを移動 End If fileName$ = Dir$() ' フォルダ内の次のファイル名を指定 Loop End Sub