フォルダが空か調べる : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



ExcelシートのVBAコード

Option Explicit

'フォルダが空か調べる
'戻り値
'空の場合: 1
'空でなければ: 0
Private Declare Function PathIsDirectoryEmpty Lib "SHLWAPI.DLL" Alias _
"PathIsDirectoryEmptyA" (ByVal pszPath As String) As Boolean

Private Sub CommandButton1_Click()
    'フォルダが空か調べる
    If PathIsDirectoryEmpty("C:\test\") = 1 Then
        CommandButton1.Caption = "空"
    Else
        CommandButton1.Caption = "有り"
    End If
End Sub

Private Sub CommandButton2_Click()
    'フォルダが空か調べる
    If PathIsDirectoryEmpty("C:\windows\") = 1 Then
        CommandButton2.Caption = "空"
    Else
        CommandButton2.Caption = "有り"
    End If
End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved