投稿日 | : 2002/08/26(Mon) 21:10 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: テンポラリーファイル取得について |
C:\DOCUME~1\YPCS_NO1\LOCALS~1\Temp\
WinXP では上記のテンポラリーファイルになりますね。
ちなみにWshShellオブジェクトを使っても同じでした。
Label1.Caption = Environ$("TEMP")
これでも同じです
C:\WINDOWS\Temp こちらのテンポラリーファイルが取得したいのですね
ごまかしなら、これでもいいかも
Private Sub Command1_Click()
Dim TempPath As String
TempPath = Dir$(Environ$("WINDIR") & "\TEMP", vbDirectory)
If StrComp(TempPath, "TEMP", 1) = 0 Then
TempPath = Environ$("WINDIR") & "\TEMP"
Else
TempPath = ""
End If
Text1.Text = TempPath
End Sub
でも初期の目的なら Label1.Caption = Environ$("TEMP") こちらで取得した
フォルダでもいいのでは