Поиск и перезапись файлов в каталоге

Форумы Между деломПоиск и перезапись файлов в каталоге ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 62

Рейтинг: -1

#1: 2018-10-12 09:30:44 ЛС | профиль | цитата

Всем привет. Помогите разобраться. Использую компонент filesearch для поиска файлов и открываю для записи, а потом закрываю. То есть непонятно почему при запуске программы с рабочего стола все файлы что были на диске переносятся к exe файлу программы. Можно как то оставлять файлы в папках при запуске exe из любого места?

карма: 0

Ответов: 16884

Рейтинг: 1239

#2: 2018-10-12 11:37:22 ЛС | профиль | цитата

rektware писал(а):

Можно как то оставлять файлы в папках при запуске exe из любого места?

Указывать полный путь.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 62

Рейтинг: -1

#3: 2018-10-12 11:42:17 ЛС | профиль | цитата

Можно как то оставлять файлы в папках при запуске exe из любого места?
Указывать полный путь.

Там еще подпапки. Набросайте пожалуйста

Редактировалось 4 раз(а), последний 2018-10-12 11:46:51

карма: 0

Ответов: 16884

Рейтинг: 1239

#4: 2018-10-12 11:50:34 ЛС | профиль | цитата

rektware, сначала хотелось бы увидеть твою схемку.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 62

Рейтинг: -1

#5: 2018-10-12 11:52:05 ЛС | профиль | цитата

Tad писал(а):

rektware, сначала хотелось бы увидеть твою схемку.

Сейчас будет

--- Добавлено в 2018-10-12 11:55:39

Tad писал(а):

rektware, сначала хотелось бы увидеть твою схемку.


Make(delphi)
ver(4.02 build 179)
Add(MainForm,2953706,168,140)
{
 Width=578
 Height=276
 link(onCreate,5296560:doSearch,[(219,160)(219,146)])
}
Add(FileSearch,5296560,238,140)
{
 Ext="*.log"
 Dir="C:\"
 link(onSearch,541340:doEvent1,[])
}
Add(Hub,541340,301,140)
{
 OutCount=3
 link(onEvent1,14166933:doOpen,[(343,146)(343,111)])
 link(onEvent2,14166933:doClose,[(343,153)(343,118)])
 link(onEvent3,15960319:doDelete,[(350,160)(350,244)])
}
Add(FileStream,14166933,371,105)
{
 link(onLoad,4869539:doCopyFromStream,[(447,111)(447,209)])
}
Add(Edit,7886019,434,77)
{
 Left=5
 Top=5
 Visible=1
 Text="1234"
}
Add(FileStream,4869539,490,189)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,251210:Var3,[(496,184)])
}
Add(GetDataEx,251210,259,175)
{
 Angle=3
 link(Data,5296560:Count,[(244,184)])
}
Add(FileTools,15960319,413,224)
{
 DelToRecycle=1
}

Редактировалось 1 раз(а), последний 2018-10-12 11:55:39

карма: 0

Ответов: 16884

Рейтинг: 1239

#6: 2018-10-12 14:05:35 ЛС | профиль | цитата

Шутим ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 62

Рейтинг: -1

#7: 2018-10-12 14:25:46 ЛС | профиль | цитата

Tad писал(а):

Шутим ?

Нет. О чем вы? Я просто вырезал часть схемы, чтобы вы поняли, что я хочу записать в файл. Диск естественно не С будет, это ведь системный. Вообщем я не знаю как объяснить, но я думаю вы поняли по смыслу схемы, а вы переделайте так как знаете... Чтобы с диска F допустим находились файлы *.log(во всех папках и подпапках) и в них записывалось новое значение.. При этом естественно они должны оставаться на своих местах как до изменения.

Редактировалось 1 раз(а), последний 2018-10-12 14:26:57

карма: 0

Главный модератор

Ответов: 2999

Рейтинг: 396

#8: 2018-10-12 14:46:04 ЛС | профиль | цитата

Почему-то не отвечают

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 62

Рейтинг: -1

#9: 2018-10-12 15:05:41 ЛС | профиль | цитата

Nic писал(а):

Почему-то не отвечают

Ну извините, я не слишком хорошо ещё изучил Hiasm, чтобы набрасывать схемы налево направо. Я пытаюсь максимально точно передать мысль того, что я хочу сделать. Я не думаю, что для вас так сложно понять из слов, если вы уже давно на форуме и действительно можете помочь.

карма: 0

Главный модератор

Ответов: 2999

Рейтинг: 396

#10: 2018-10-12 15:26:40 ЛС | профиль | цитата

Но можно этого и не делать...
Если Вас не интересует Результат ((c) Жванецкий)

карма: 6

Дорогу осилит идущий. Install/Update HiAsm.NET

Ответов: 62

Рейтинг: -1

#11: 2018-10-12 15:34:03 ЛС | профиль | цитата

Nic писал(а):

Но можно этого и не делать...
Если Вас не интересует Результат ((c) Жванецкий)

Может лучше поможете, а не будете цитатки копировать? Больше пользы принесёте.

карма: 0

Ответов: 16884

Рейтинг: 1239

#12: 2018-10-12 16:31:06 ЛС | профиль | цитата


Add(MainForm,8443688,35,70)
{
 Width=1120
 Height=683
}
Add(FileSearch,5296560,252,77)
{
 Ext="*.log"
 link(onSearch,1084517:doAdd,[])
}
Add(Edit,7886019,196,77)
{
 Left=90
 Top=3
 Width=285
 Text=""
 link(onChange,5296560:doSearch,[])
}
Add(Browse,636340,147,77)
{
 link(onBrowse,7886019:doText,[])
}
Add(Button,4316838,77,70)
{
 Top=3
 Width=75
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Каталог"
 link(onClick,16597144:doEvent1,[])
}
Add(ListBox,1084517,308,77)
{
 Left=5
 Top=30
 Width=370
 Height=605
 Point(String)
 link(onClick,12307724:doEvent1,[])
}
Add(Memo,13461042,434,63)
{
 Left=390
 Top=3
 Width=710
 Height=605
 ScrollBars=3
 Point(doLoad)
 Point(doSave)
 link(Str,1084517:String,[(440,51)(353,51)(353,119)(335,119)])
}
Add(Hub,16597144,119,70)
{
 link(onEvent1,1084517:doClear,[(294,76)(294,90)])
 link(onEvent2,636340:doBrowse,[])
}
Add(Button,10621835,378,112)
{
 Left=875
 Top=620
 Width=95
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Сохранить"
 link(onClick,13461042:doSave,[(422,118)(422,104)])
}
Add(Hub,12307724,392,84)
{
 link(onEvent1,13461042:doClear,[(420,90)(420,76)])
 link(onEvent2,13461042:doLoad,[])
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 62

Рейтинг: -1

#13: 2018-10-12 16:46:42 ЛС | профиль | цитата

Tad писал(а):

Add(MainForm,8443688,35,70)
{
Width=1120
Height=683
}
Add(FileSearch,5296560,252,77)
{
Ext="*.log"
link(onSearch,1084517:doAdd,[])
}
Add(Edit,7886019,196,77)
{
Left=90
Top=3
Width=285
Text=""
link(onChange,5296560:doSearch,[])
}
Add(Browse,636340,147,77)
{
link(onBrowse,7886019:doText,[])
}
Add(Button,4316838,77,70)
{
Top=3
Width=75
Font=[MS Sans Serif,8,1,0,1]
Caption="Каталог"
link(onClick,16597144:doEvent1,[])
}
Add(ListBox,1084517,308,77)
{
Left=5
Top=30
Width=370
Height=605
Point(String)
link(onClick,12307724:doEvent1,[])
}
Add(Memo,13461042,434,63)
{
Left=390
Top=3
Width=710
Height=605
ScrollBars=3
Point(doLoad)
Point(doSave)
link(Str,1084517:String,[(440,51)(353,51)(353,119)(335,119)])
}
Add(Hub,16597144,119,70)
{
link(onEvent1,1084517:doClear,[(294,76)(294,90)])
link(onEvent2,636340:doBrowse,[])
}
Add(Button,10621835,378,112)
{
Left=875
Top=620
Width=95
Font=[MS Sans Serif,8,1,0,1]
Caption="Сохранить"
link(onClick,13461042:doSave,[(422,118)(422,104)])
}
Add(Hub,12307724,392,84)
{
link(onEvent1,13461042:doClear,[(420,90)(420,76)])
link(onEvent2,13461042:doLoad,[])
}

Спасибо большое.

2.3.2. Максимальный размер изображений или видео без спойлера не должен превышать по большей стороне 600 пикселей.

карма: 0

Форумы Между деломПоиск и перезапись файлов в каталоге ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)