help me find folder and file

i am not yet experienced can given example detailer

example me program


Private Sub Form_Load()
Dim CheckFile1, CheckFile2 As String

' Check if folder exists, first.
If Dir("c:\version", vbDirectory) = vbNullString Then
Exit Sub
End If

' Check if file exists
CheckFile1 = Dir$("c:\version\version.txt")
CheckFile2 = Dir$("c:\version\versionold.txt")
If CheckFile1 = "version.txt" And CheckFile2 = "versionold.txt" Then
Exit Sub
ElseIf CheckFile1 = "version.txt" Then
Name "c:\version\version.txt" As "c:\version\versionold.txt"
Call CreateFile
End If


End Sub




Private Sub CreateFile()
' =========================================
'
' =========================================

Open "\version\version.txt" For Output As #1

Print #1, "Version =1.0 "
Print #1, "Label = 123"
Print #1, ""


Close #1
End Sub


this program in target c:
example
c:\version\ (forder version location c: )
c:\version \version.txt
c:\version\versionold.txt

1.how find folder version if folder version not hardisk c:
example user install me program location d:\ or e:\
2.if folder version found how create me files if folder not hardisk c:\

thanks