[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2006/05/29(Mon) 09:37
投稿者名：VivaVB
Ｅメール：
ＵＲＬ　：
タイトル：コモンダイアログについて
こんにちわ
お尋ねしたいことがあります。コモンダイアログボックスを表示させるときに、デフォルトの指定保
存先をマイドキュメントにしたいのですが、その場合はどのようにすると実現できるのでしょうか。

投稿時間：2006/05/29(Mon) 11:07
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: コモンダイアログについて
> お尋ねしたいことがあります。コモンダイアログボックスを表示させるときに、デフォルトの指定保
> 存先をマイドキュメントにしたいのですが、その場合はどのようにすると実現できるのでしょうか。

たとえば、こんな感じで。

CommonDialog1.InitDir = "::{450d8fba-ad25-11d0-98a8-0800361b1103}"
CommonDialog1.FileName = "SAMPLE.DAT"
CommonDialog1.ShowSave

投稿時間：2006/05/29(Mon) 12:32
投稿者名：VivaVB
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: コモンダイアログについて
魔界の仮面弁士　様

ありがとうございます。


もう一つ質問させてください。
今度は、画面初回表示時にラベルにマイドキュメントのパスを
表示させるにはどのようにするとよいでしょうか。

投稿時間：2006/05/29(Mon) 15:15
投稿者名：トット
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: コモンダイアログについて
CommonDialog1.ShowMe
これでいいかと思いますが・・・
環境がないもので推測です。

投稿時間：2006/05/29(Mon) 17:56
投稿者名：VivaVB
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: コモンダイアログについて
トット　様

アドバイスありがとうございます。
試してみましたが、どうやらVBには”ShowMe"というものが
ないようです。
VB.NETだとあるんでしょうか。。。ちなみに私はVB6を扱って
います。

投稿時間：2006/05/29(Mon) 18:12
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: コモンダイアログについて
> 今度は、画面初回表示時にラベルにマイドキュメントのパスを
> 表示させるにはどのようにするとよいでしょうか。

    With CreateObject("WScript.Shell")
        MsgBox .SpecialFolders("MyDocuments") & vbCrLf _
             & .SpecialFolders("Desktop") & vbCrLf _
             & .SpecialFolders("AllUsersDesktop")
    End With

投稿時間：2006/05/30(Tue) 17:10
投稿者名：VivaVB
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: コモンダイアログについて
魔界の仮面弁士　様、トット　様

ご協力ほんとうにありがとうございました。
おかげさまで実現できました。