Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[13.58.185.199] |
|
Сообщ.
#1
,
|
|
|
kak skopirovat fail v directoriyu windows ili v system, neukazivaya adressa tipa c:\windows, a podrugomu!!!
tipa (\%windir\%) ili chtoto vrode etogo |
Сообщ.
#2
,
|
|
|
Это же элементахно, Ватсон!!!
Есть функция... Environ("windir") |
Сообщ.
#3
,
|
|
|
ti mne na primere pokaji pojalusta,
dorogoy Sherlok |
Сообщ.
#4
,
|
|
|
Dim mypath, newlocation As String
mypath = App.Path & "\" & App.EXEName & ".EXE" newlocation = Environ("WinDir") & "\system\" & App.EXEName & ".EXE" On Error Resume Next If LCase(mypath) <> LCase(newlocation) Then FileCopy mypath, newlocation End If |
Сообщ.
#5
,
|
|
|
to vasya2000:
nazvaniye isxodnogo i konechnogo faylov ukaji pojauysta ya ne vrubilsya |
Сообщ.
#6
,
|
|
|
Да что ж ты?!!!
Dim Nazvaniye_Isxodnogo_Fayla As String Dim Nazvaniye_Konechnogo_Fayla As String Nazvaniye_Isxodnogo_Fayla = "C:\AUTOEXEC.BAT" ' Это название исходного файла Nazvaniye_Konechnogo_Fayla = Environ("windir") + "\AUTOEXEC.BAT" ' Это название конечного файла FileCopy Nazvaniye_Isxodnogo_Fayla, Nazvaniye_Konechnogo_Fayla Копирует файл AUTOEXEC.BAT из C:\ в \%windir\%\SYSTEM\ (т.е. в каталог WINDOWS) |
Сообщ.
#7
,
|
|
|
ну как, ясно?
|
Сообщ.
#8
,
|
|
|
vechno blagodaren umnim lyudyam
|