いつも教えて頂き有難う御座います。
Folder有無についてNet、ここの逆引きヘルプ、など
色々調べて下記のコードを書いてみましたが、
すべて「Text1.Text = "存在しません。"」ばかりです。
見よう見まねなのでコードの意味は分かっていません。
Erorrは出ません。
どこが悪いのかご指導のほど宜しくお願いいたします。
'-------------------------------------------
Private Sub Command1_Click()
Dim fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\Windows")) Then
       Text1.Text = "存在します。"
   Else
      Text1.Text = "存在しません。"
   End If
        End Sub

FileExistsになってますね＾＾

FolderExistsが正しいです。

> FileExistsになってますね＾＾
>
> FolderExistsが正しいです。
カカさん有難う御座います。
色々試してるうちに間違えたようです。
ご指摘有難う御座いました。
これからも宜しくご指導のほど、有難う御座いました。