Что нового

[Файловая система] Проверка расположения файла и прописывание пути

Oleg-lamer

Новичок
Сообщения
10
Репутация
0
Версия AutoIt: 3.3.14.2

Описание:
Всем привет! Вопрос в Чем:
есть переменная $Basepatch="путь к фалу"
Суть в том что путь может быть нескольких вариантов т.е. Есть 3 пути
\\Сomp1\1\файл.txt
\\Сomp2\1\файл.txt
\\Сomp3\1\файл.txt
Нужный файл может лежать в любом из этих путей. при том реально существовать будет только один из этих сетевых путей.
Нужен скрипт который будет поочередно проверять каждый из этих путей и когда находит нужный файл, передовать путь к нему в п переменную
$Basepatch
а если не в одном пути нужного файла не будет, то предлагать ввести путь вручную, и введенную информацию так-же передавать в переменную.
После чего проверять наличие файла в пути и если его там нет то требовать ввести путь еще раз.


Примечания:
По возможности прокоментите код пожалуйста, чтобы можно было понять что-там к чему, буду очень благодарен! Заранее спасибо!
 

sergioz

Знающий
Сообщения
39
Репутация
5
Код:
Global $Basepatch=-1
global const $files_to_check[3] =	["\\Сomp1\1\файл.txt", _
									"\\Сomp1\1\файл.txt", _
									"\\Сomp1\1\файл.txt"]
for $i=0 to UBound($files_to_check)-1
	if FileExists($files_to_check[$i]) Then
		$Basepatch=$files_to_check[$i]
		ExitLoop
	EndIf
Next
If $Basepatch=-1 then FileOpenDialog("Выберите фай вручную","","All (*.*)")



при добавлении/удалении файлов для проверки изменять размерность массива - цифру ставить по количеству файлов
 
Автор
O

Oleg-lamer

Новичок
Сообщения
10
Репутация
0
Спасибо! Правда пока ждал решил сам, хоть и менее изящно, но работает:

Код:
Global $basepatch
; ищем файл базы
If FileExists("\\Comp1\db\1Cv8.1CD") Then
    $basepatch = ("\\Comp1\db\")
ElseIf FileExists("\\Comp2\db\1Cv8.1CD") Then
    $basepatch = ("\\Comp2\db\")
 ElseIf FileExists("\\Comp3\db\1Cv8.1CD") Then
	$basepatch = ("\Comp3\db\")
 ElseIf FileExists("\\Comp4\db\1Cv8.1CD") Then
	$basepatch = ("\\Comp4\db\")
 ElseIf FileExists("\\Comp5\db\1Cv8.1CD") Then
	$basepatch = ("\\Comp5\db\")
 Else
	$basepatch = InputBox ("Нестандартное расположение файла базы", "Укажите путь к папке в котрой лежит файл базы 1с.")
 EndIf
 
Верх