0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

M_File:各種定義

Last updated at Posted at 2025-04-26

ファイル処理の各種定義

'##############################################################################
' ファイル処理
'##############################################################################
' 参照設定          |   Microsoft Scripting Runtime
'                   |   Microsoft Office xx.x Object Library
'------------------------------------------------------------------------------
' 参照モジュール    |   M_String
'------------------------------------------------------------------------------

'==============================================================================
' 公開定義
'==============================================================================
' 定数定義
'------------------------------------------------------------------------------
Public Enum E_FILE_IDX_LIST_INF
    E_FILE_IDX_LIST_INF_NONE = D_IDX_START - 1
    E_FILE_IDX_LIST_INF_FULLPATH                                                'フルパス
    E_FILE_IDX_LIST_INF_RLTPATH                                                 '相対パス
    E_FILE_IDX_LIST_INF_NAME                                                    'ファイル名
    E_FILE_IDX_LIST_INF_MAX
    E_FILE_IDX_LIST_INF_EEND = E_FILE_IDX_LIST_INF_MAX - 1
End Enum

Public Enum E_FILE_SPEC_TEXT
    E_FILE_SPEC_TEXT_NONE = &H0
    E_FILE_SPEC_TEXT_LINE = &H1
    E_FILE_SPEC_TEXT_ALL = &H2
    E_FILE_SPEC_TEXT_LINE_ALL = E_FILE_SPEC_TEXT_LINE Or E_FILE_SPEC_TEXT_ALL
End Enum

'==============================================================================
' 内部定義
'==============================================================================
' 構造体定義
'------------------------------------------------------------------------------
Private Type PT_FILE_LIST_INF
    List As Dictionary
    Path As String
    ExtSpec As String
    ExtSpecAry As Variant
End Type

'------------------------------------------------------------------------------
' 定数定義
'------------------------------------------------------------------------------
Private Enum PE_FILE_IDX_FILTER_INF
    PE_FILE_IDX_FILTER_INF_NONE = D_IDX_START - 1
    PE_FILE_IDX_FILTER_INF_NAME
    PE_FILE_IDX_FILTER_INF_FILTER
    PE_FILE_IDX_FILTER_INF_MAX
    PE_FILE_IDX_FILTER_INF_EEND = PE_FILE_IDX_FILTER_INF_MAX - 1
End Enum

'------------------------------------------------------------------------------
' 変数定義
'------------------------------------------------------------------------------
Private pgInf As PT_FILE_LIST_INF
0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?