If Len(Dir("d:\" & strFileName)) > 0 Then
MsgBox "Файл существует"
Else
MsgBox "Файл не существует"
End If
Проверка имени
Как сделать чтобы при появлении файлов в одной папке, проверялось наличие файлов с таким же именем в другой папке, и при наличии такого файла во второй папке, файл в первой, переименовывался, желательно на произвольное имя.
На чём разработку-то ведёте: VB, VBA, VBS?
Веду в VB
Цитата: rostov-ilya
... проверялось наличие файлов с таким же именем в другой папке...
Используйте функцию [color=blue]Dir()[/color]:
Код:
Цитата: rostov-ilya
... и при наличии такого файла во второй папке, файл в первой, переименовывался...
Используйте оператор [color=blue]Name[/color]:
Код:
'только переименование
Name "c:\" & strFileName As "c:\" & strNewName
'переименование и перемещение
Name "c:\" & strFileName As "d:\" & strNewName
Name "c:\" & strFileName As "c:\" & strNewName
'переименование и перемещение
Name "c:\" & strFileName As "d:\" & strNewName
Цитата: rostov-ilya
... желательно на произвольное имя.
Такое имя можно сгенерировать, используя, например, текущие значения даты и времени:
Код:
Dim dblDateTime As Double, intExtPos As Integer
Dim strFileName As String, strNewName As String
strFileName = "1.txt"
dblDateTime = CDbl(Now)
strNewName = Replace(CStr(dblDateTime), ",", "")
intExtPos = InStrRev(strFileName, ".")
If intExtPos > 0 Then
strNewName = strNewName & Mid$(strFileName, intExtPos)
End If
Dim strFileName As String, strNewName As String
strFileName = "1.txt"
dblDateTime = CDbl(Now)
strNewName = Replace(CStr(dblDateTime), ",", "")
intExtPos = InStrRev(strFileName, ".")
If intExtPos > 0 Then
strNewName = strNewName & Mid$(strFileName, intExtPos)
End If
Большое спасибо все работает.