2017-12-06 8 views
0

私はフォルダの場所に既存のファイルを見つけようとしています

は、現在のコード:

Dim FileExistsbol As Boolean 
Dim stFileName As String 
stFileName = "H:\Test File.txt" 
stFileName = Trim(stFileName) 
FileExistsbol = dir(stFileName) <> vbNullString 
If FileExistsbol Then Kill stFileName 

エラー:

エラーメッセージがあります:種類の不一致 この行のVBAデバッグ:

FileExistsbol = dir(stFileName) <> vbNullString 

ファイルが存在するため、この問題を解決する方法が不明です - 任意のアイデアですか?

答えて

1

私はFileExistsbol変数を排除してからちょうどような何かになるだろう:

If Dir(stFileName) <> "" Then 
    Kill stFileName 
End If 
関連する問題