tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルdir取得について
記事No11382
投稿日: 2008/02/10(Sun) 23:31
投稿者だめおやじ
 以下のようなコードを作成しましたが、変数を使用しますとMyPatheがEmPty 値となります。変数は使用できないのでしょうか?。
Private Sub 取得()
  namae = "東京"
   MyPath = "C:\大阪\名古屋\福岡\ & namae & "\" "
  MyName = Dir(MyPath, vbDirectory)  
  MsgBox MyPathe

End if

[ツリー表示へ]
タイトルRe: dir取得について
記事No11383
投稿日: 2008/02/10(Sun) 23:35
投稿者花ちゃん
>    MyPath = "C:\大阪\名古屋\福岡\ & namae & "\" "

MyPath には、何が入っていますか?(EmPty 値 ですじゃなくて、よく見て下さい)

[ツリー表示へ]
タイトルRe: dir取得について
記事No11384
投稿日: 2008/02/11(Mon) 00:04
投稿者だめおやじ
>  早々の回答ありがとうございます。
 誤りMyPathe、正MyPath。申し訳ありません。
> Private Sub 取得()
>    namae = "東京"
>    MyPath = "C:\大阪\名古屋\福岡\ & namae & "\" "
>   MyName = Dir(MyPath, vbDirectory)  
>   MsgBox MyPath
>
> End if

 MyPath="C:\大阪\名古屋\福岡\" が入っておりました。今度は型が一致しません。変数を使用しない時は作動しております。Dimは指定しております。

[ツリー表示へ]
タイトルRe: dir取得について
記事No11385
投稿日: 2008/02/11(Mon) 00:37
投稿者花ちゃん
> Private Sub 取得()
        ↑ プロシージャ名等に全角文字を使用しないように
>    namae = "東京"
>    MyPath = "C:\大阪\名古屋\福岡\ & namae & "\" "
                    ↑文字の終りの " が抜けている ので 最後の " も
>   MyName = Dir(MyPath, vbDirectory)  
>   MsgBox MyPathe
               ↑ MyName にしないと  MyPathe にしても e が余計
>
> End if

上記を修正すると下記になります、見比べて見て下さい。

Private Sub Command1_Click()
   Dim namae  As String
   Dim MyPath As String
   Dim MyName As String
   namae = "東京"
   MyPath = "C:\大阪\名古屋\福岡\" & namae & "\"
   MyName = Dir(MyPath, vbDirectory)
   MsgBox MyName
End Sub

[ツリー表示へ]
タイトルRe^2: dir取得について
記事No11386
投稿日: 2008/02/11(Mon) 01:00
投稿者だめおやじ
>解決しました。ありがとうございます。今日何時間も悩んでいたところです。これで休めます。
 Vbを始めて3ヶ月になります、これからもいろいろ覚えていきたいと思いますご指導のほどよろしくお願いします。

[ツリー表示へ]