Автор Тема: Копирование файла в папку @UserName  (Прочитано 3871 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ivsatel [?]

  • Продвинутый
  • ***
  • Сообщений: 319
  • Репутация: 84
  • Пол: Мужской
    • Награды
Версия AutoIt: 3.3.6.1

Описание: Скрипт копирует файл в папку @UserName

Код: AutoIt [Выделить]
#NoTrayIcon
FileCopy("1.dtp", @UserName & "\Application Data\uTorrent")


Примечания: Подскажите, что не так?

Разобрался!)))

Код: AutoIt [Выделить]
#NoTrayIcon
FileCopy("1.dtp", "c:\Documents and Settings\" & @UserName & "\Application Data\uTorrent")


Русское сообщество AutoIt

Копирование файла в папку @UserName
« Отправлен: Апрель 16, 2010, 20:17:14 »

Оффлайн Yashied [?]

  • AutoIt MVP
  • Глобальный модератор
  • *
  • Сообщений: 5379
  • Репутация: 2700
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.x.x
Re: Копирование файла в папку @UserName
« Ответ #1, Отправлен: Апрель 16, 2010, 20:41:52 »
Код: AutoIt [Выделить]
FileCopy("1.dtp", @AppDataDir & "\uTorrent")



Думай, прежде чем говорить.

Оффлайн ivsatel [?]

  • Продвинутый
  • ***
  • Сообщений: 319

  • Автор темы
  • Репутация: 84
  • Пол: Мужской
    • Награды
Re: Копирование файла в папку @UserName
« Ответ #2, Отправлен: Апрель 16, 2010, 20:57:31 »
Код: AutoIt [Выделить]
FileCopy("1.dtp", @AppDataDir & "\uTorrent")


А если пользователей много?

Русское сообщество AutoIt

Re: Копирование файла в папку @UserName
« Ответ #2 Отправлен: Апрель 16, 2010, 20:57:31 »

Оффлайн ynbIpb [?]

  • Скриптер
  • ****
  • Сообщений: 398
  • Репутация: 109
  • Пол: Мужской
    • Награды
Re: Копирование файла в папку @UserName
« Ответ #3, Отправлен: Апрель 16, 2010, 21:23:02 »
Код: AutoIt [Выделить]
$Users = _AccountEnum()
For $i = 1 To $Users[0]
FileCopy("1.dtp", "C:\Documents and Settings\" & $Users[$i] & "\Application Data\uTorrent", 9); создавать структуру каталогов и перезапись
Next
; функция подсчёта пользователей
Func _AccountEnum($sComputer = @ComputerName)
    Local $iUbound, $asArray[1]
    Local $objSystem = ObjGet("winmgmts:{ImpersonationLevel=impersonate}!\\" & $sComputer & "\root\cimv2")
    Local $objUserList = $objSystem.ExecQuery('Select * from Win32_UserAccount Where Domain="' & $sComputer & '"')
    For $objUser In $objUserList
        $iUbound = UBound($asArray)
        ReDim $asArray[$iUbound + 1]
        $asArray[$iUbound] = $objUser.Name
    Next
    $asArray[0] = UBound($asArray) - 1
    Return $asArray
EndFunc


Оффлайн CreatoR [?]

  • Администратор
  • *
  • Сообщений: 8082
  • Репутация: 2314
  • Пол: Мужской
  • AutoIt is simple, subtle, elegant
    • CreatoR's Lab
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Копирование файла в папку @UserName
« Ответ #4, Отправлен: Апрель 16, 2010, 22:34:10 »
ivsatel  [?]
Цитировать
Немного не по теме
Немного? это вообще не по теме. Создайте новую.


Правила, Поиск, Супер тема


AutoIt is simple, subtle, elegant.


«Не оказываю тех. поддержку через ПМ/ICQ, и по электронной почте - для этого есть форум. (C)»
«Законы Мэрфи неоспоримы!»


Мои работы

Русское сообщество AutoIt

Re: Копирование файла в папку @UserName
« Ответ #4 Отправлен: Апрель 16, 2010, 22:34:10 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
0 Ответов
2216 Просмотров
Последний ответ Апрель 17, 2010, 00:29:32
от CreatoR
15 Ответов
5689 Просмотров
Последний ответ Апрель 11, 2011, 14:14:59
от AZJIO
3 Ответов
2231 Просмотров
Последний ответ Май 05, 2012, 09:37:07
от madmasles
6 Ответов
3275 Просмотров
Последний ответ Июнь 14, 2013, 01:44:19
от WSWR
1 Ответов
1714 Просмотров
Последний ответ Июль 16, 2013, 06:21:05
от joiner
3 Ответов
2316 Просмотров
Последний ответ Июль 19, 2013, 09:24:17
от ildar
1 Ответов
1161 Просмотров
Последний ответ Июль 21, 2015, 18:51:01
от madmasles
2 Ответов
960 Просмотров
Последний ответ Октябрь 13, 2015, 00:28:52
от CreatoR
2 Ответов
2312 Просмотров
Последний ответ Март 16, 2016, 12:54:50
от BuZZinga
1 Ответов
904 Просмотров
Последний ответ Август 08, 2016, 10:27:45
от Alofa