呼び出し元プロシージャ '解凍呼び出しテスト Function testmelting() '変数の宣言 Dim filepath As Variant Dim meltpath As Variant Dim ret As Boolean 'ファイルのパスを格納 filepath = "ここにZIPファイルのパスを入れる" meltpath = "ここに解凍先フ…

■呼び出し元 '圧縮呼び出しテスト Public Function testZip() '変数の宣言 Dim ret As Boolean Dim filepath As Variant '圧縮対象フォルダ用配列 Dim files(0) '配列に圧縮元フォルダのパスを格納する files(0) = "圧縮するフォルダのフルパスを入力" '圧縮…

■指定したフォルダパスのフォルダ内のサブフォルダを取得しパスを配列で返す 呼び出し元プロシージャ Sub TestGetFolderArray() Dim arrayFolders() As String Dim strFolderPath As String Dim i As Integer strFolderPath = "C:\テスト" arrayFolders = ge…

■指定したフォルダパスのフォルダ内のファイルを取得し、ファイルパスを配列で返す 呼び出し元プロシージャ Sub TestGetArray() Dim arrayFiles() As String Dim strFolderPath As String Dim i As Integer strFolderPath = "C:\デスクトップ\テスト" arrayF…