[PR]大人気ブランドの新品同様品をお得に♪

フォルダの存在をチェックする

カテゴリ: VB6.0
投稿日時:2009/01/13 12:35:15
フォルダの存在をチェックするには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
    
    If f.FolderExists("c:\test") Then
        'フォルダが存在する
        MsgBox "既に存在します。"
    Else
        'フォルダが存在しない
        f.CreateFolder "c:\test"
    End If
    
    Set f = Nothing
    
End Sub
このエントリーをはてなブックマークに追加


スポンサード リンク