- PR -

ログインアカウント、、

«前のページへ 1|2
投稿者投稿内容
Katze
ベテラン
会議室デビュー日: 2005/11/01
投稿数: 74
お住まい・勤務地: 1台でも せんだい
投稿日時: 2006-03-31 11:46
別ファイルに書き出してもいいのなら以下の方法で

Set wShell = CreateObject("WScript.Shell")
wShell.Run "%ComSpec% /c set userprofile > Result.txt", 0, True

で、どうでしょう？

# 直接結果をもらう方法はわかりませんでした.... orz
# ご存知の方フォローお願いしますm(_ _)m

# じゃんぬさんスイマセン。書き直している間に入れ違いました。
# ということで、じゃんぬさんのアドバイスを受けて修正


[ メッセージ編集済み 編集者: Katze 編集日時 2006-03-31 11:50 ]
スンパ
ベテラン
会議室デビュー日: 2005/05/23
投稿数: 85
投稿日時: 2006-03-31 11:48
じゃんぬねっとさま
ご返事有り難うございます。

引用:
--------------------------------------------------------------------------------
.NET Framework だったらわかるんですが、VBA だと詳しくないのでわかりません。
--------------------------------------------------------------------------------

.NET Framework だったらどうするんでしょうか？
教えていただけますか？
sophia(rc)
会議室デビュー日: 2005/09/02
投稿数: 18
投稿日時: 2006-03-31 12:08
つset s = createobject("wscript.shell")
つset se = s.environment("process")
つmsgbox se("USERPROFILE")

壁]彡サッ
じゃんぬねっと
ぬし
会議室デビュー日: 2004/12/22
投稿数: 7811
お住まい・勤務地: 愛知県名古屋市
投稿日時: 2006-03-31 12:12
引用:

スンちゃんパパさんの書き込み (2006-03-31 11:48) より:

.NET Framework だったらどうするんでしょうか？

ProcessStartInfo.CreateNoWindow です。
が、sophia(rc) さんが VBA 用のコードを提示してくださったようで... orz

勉強になりました。

_________________
C# と VB.NET の入門サイト
じゃんぬねっと日誌
ちゃっぴ
ぬし
会議室デビュー日: 2004/12/10
投稿数: 873
投稿日時: 2006-03-31 12:20
Microsoft Shell Controls And Automation を参照設定して

コード:
 
Dim objShell    As Shell32.Shell
    
Set objShell = New Shell32.Shell
Debug.Print objShell.NameSpace(ssfPROFILE).Items.Item.Path
«前のページへ 1|2

スキルアップ／キャリアアップ（JOB@IT）