Dim rootfolder as String
Dim subfolder as String
Dim s1, s2, s3, s4 as String
rootfolder=file.DirDefaultExternal
s1="planets"
s2="earth"
s3="europe"
s4="germany"
subfolder = "/" & s1 & "/" & s2 & "/" & s3 & "/" & s4
if File.Exists(rootfolder & subfolder, "myfile.txt") then
...
end if