Directory Files

[anonymous]

[Originally posted by Al Lawrence]

I am looking for a way to determine if a document file I am about to save already exists in a predefined directory. If it does exist I want to modify the file name of the current document and then save it...

I have the code to do the saving, just need some help with the importing of a list of filenames in a particular directory into an array.

Any assistance would be appreciated!

[anonymous]

[Originally posted by Greg DeBacker]

I quickly modified this code from the VB help file. It can be refined but it does what you want. It lists the files from a directory in to an array. There is another way(s) to tell if a file already exists. I post another message...

ÿ ÿ Dim MyFile As String, MyPath As String, MyName As String
ÿ ÿ Dim AllFiles() As String
ÿ ÿ Dim iCounter As Integer
ÿ ÿ MyPath = "c:\"ÿ ' Set the path.
ÿ ÿ MyName = Dir(MyPath, vbNormal)ÿ ' Retrieve the first entry.
ÿ ÿ Do While MyName <> ""ÿ ' Start the loop.
ÿ ÿ ÿ ' Ignore the current directory and the encompassing directory.
ÿ ÿ ÿ If MyName <> "." And MyName <> ".." Then
ÿ ÿ ÿ ÿ ÿ ' Use bitwise comparison to make sure MyName is a file.
ÿ ÿ ÿ ÿ ÿ If (GetAttr(MyPath & MyName) And vbNormal) = vbNormal Then
ÿ ÿ
ÿ ÿ ÿ ÿ ÿ ÿ iCounter = iCounter + 1
ÿ ÿ ÿ ÿ ÿ ÿ ReDim Preserve AllFiles(iCounter)
ÿ ÿ ÿ ÿ ÿ ÿ AllFiles(iCounter - 1) = MyName
ÿ ÿ ÿ ÿ ÿ ÿ
ÿ ÿ ÿ ÿ ÿ End Ifÿ ' it represents a file.
ÿ ÿ ÿ End If
ÿ ÿ ÿ MyName = Dirÿ ' Get next entry.
ÿ ÿ Loop
ÿ ÿ
ÿ ÿ For iCounter = LBound(AllFiles) To UBound(AllFiles)
ÿ ÿ ÿ ÿ Debug.Print AllFiles(iCounter)
ÿ ÿ Next


Grex

[anonymous]

[Originally posted by Greg DeBacker]

Test to see if WIN.INI exists...

Dim MyFile As String
MyFile = Dir("C:\WINDOWS\WIN.INI")
If Len(Trim$(MyFile)) > 0 Then
ÿ ÿ MsgBox "File exists"
End If

You can also go to greater lengths with the Windows API.

Grex

[anonymous]

[Originally posted by Al Lawrence]

Thank you...

And thank you to all that have replied!!!!

Al