【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






システムのパスの列挙体を調べる

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、システムのパスの列挙体を調べることが可能です。

この機能を使えば、簡単に、
システムのパスの列挙体に従って構成させた
アプリケーションを作成することができます。



フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┃※複数行              ┃
   ┃                      ┃
   ┗━━━━━━━━━━━┛



2.テキストボックスコントロール TextBox1は、
    複数行の入力とするため、
    Multiline プロパティを True にします。(複数行)
    ScrollBars プロパティを Vertical にします。(スクロールバー)


3.フォームをダブルクリックして、
    フォームロードイベントのコード編集を開始して、
    次のコードを記述します。


    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = ""

        Dim Sp As System.Environment.SpecialFolder
        Dim Spf As System.Environment

        With TextBox1
            .Text = .Text & vbCrLf & "ApplicationData:" & vbCrLf _
            & Spf.GetFolderPath(Sp.ApplicationData) & vbCrLf
            .Text = .Text & vbCrLf & "CommonApplicationData:" _
            & vbCrLf & Spf.GetFolderPath(Sp.CommonApplicationData) & vbCrLf
            .Text = .Text & vbCrLf & "CommonProgramFiles:" _
            & vbCrLf & Spf.GetFolderPath(Sp.CommonProgramFiles) & vbCrLf
            .Text = .Text & vbCrLf & "Cookies:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Cookies) & vbCrLf
            .Text = .Text & vbCrLf & "Desktop:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Desktop) & vbCrLf
            .Text = .Text & vbCrLf & "DesktopDirectory:" & vbCrLf _
            & Spf.GetFolderPath(Sp.DesktopDirectory) & vbCrLf
            .Text = .Text & vbCrLf & "Favorites:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Favorites) & vbCrLf
            .Text = .Text & vbCrLf & "History:" & vbCrLf _
            & Spf.GetFolderPath(Sp.History) & vbCrLf
            .Text = .Text & vbCrLf & "InternetCache:" & vbCrLf _
            & Spf.GetFolderPath(Sp.InternetCache) & vbCrLf
            .Text = .Text & vbCrLf & "LocalApplicationData:" & vbCrLf _
            & Spf.GetFolderPath(Sp.LocalApplicationData) & vbCrLf
            .Text = .Text & vbCrLf & "MyComputer:" & vbCrLf _
            & Spf.GetFolderPath(Sp.MyComputer) & vbCrLf
            .Text = .Text & vbCrLf & "MyMusic:" & vbCrLf _
            & Spf.GetFolderPath(Sp.MyMusic) & vbCrLf
            .Text = .Text & vbCrLf & "MyPictures:" & vbCrLf _
            & Spf.GetFolderPath(Sp.MyPictures) & vbCrLf
            .Text = .Text & vbCrLf & "Personal:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Personal) & vbCrLf
            .Text = .Text & vbCrLf & "ProgramFiles:" & vbCrLf _
            & Spf.GetFolderPath(Sp.ProgramFiles) & vbCrLf
            .Text = .Text & vbCrLf & "Programs:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Programs) & vbCrLf
            .Text = .Text & vbCrLf & "Recent:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Recent) & vbCrLf
            .Text = .Text & vbCrLf & "SendTo:" & vbCrLf _
            & Spf.GetFolderPath(Sp.SendTo) & vbCrLf
            .Text = .Text & vbCrLf & "StartMenu:" & vbCrLf _
            & Spf.GetFolderPath(Sp.StartMenu) & vbCrLf
            .Text = .Text & vbCrLf & "Startup:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Startup) & vbCrLf
            .Text = .Text & vbCrLf & "System:" & vbCrLf _
            & Spf.GetFolderPath(Sp.System) & vbCrLf
            .Text = .Text & vbCrLf & "Templates:" & vbCrLf _
            & Spf.GetFolderPath(Sp.Templates) & vbCrLf
        End With


    End Sub



4.ビルドして実行します。


5.フォームに表示された TextBox1 の内容に
    システムのパスの列挙体が、各目的別に表示されます。



-----------VB.NETコーディングここまで-------------------

本サンプルでは、システムのパスの列挙体を表示していますが、
若干ですが、見やすくするために、適宜に改行(vbCrLf)
を入れています。

これらのパスを参照して、右クリック時の「送る」メニューに
追加したり、デスクトップにショートカットを作成したり
行うことが可能となります。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=OuV

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新