ファイル一覧を取得してクリップボードに格納

'*******************************
' ファイル一覧を取得してクリップボードに格納
'*******************************
Public Function FileIDGet(ByVal FolderID As String, ByVal flgFolerAdd As Boolean) As String
    Dim buf As String
    Dim strRtn As String
    If Mid(FolderID, Len(FolderID), 1) <> "\" Then
        FolderID = FolderID & "\"
    End If
   
    buf = Dir(FolderID & "*.*")
    strRtn = ""
    Do While buf <> ""
        If strRtn = "" Then
            strRtn = IIf(flgFolerAdd = True, FolderID, "") & buf
        Else
            strRtn = strRtn & vbCrLf & IIf(flgFolerAdd = True, FolderID, "") & buf
        End If
        buf = Dir()
    Loop
    ClipBoadCopy (strRtn)
End Function