На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Windows???
    kak skopirovat fail v directoriyu windows ili v system, neukazivaya adressa tipa c:\windows, a podrugomu!!!
    tipa (\%windir\%) ili chtoto vrode etogo
      Это же элементахно, Ватсон!!!
      Есть функция...
      Environ("windir")
        ti mne na primere pokaji pojalusta,
        dorogoy Sherlok
          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
            to vasya2000:
            nazvaniye isxodnogo i konechnogo faylov ukaji pojauysta ya ne vrubilsya
              Да что ж ты?!!! :)
              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)
                ну как, ясно?
                  vechno blagodaren umnim lyudyam
                  1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0226 ]   [ 15 queries used ]   [ Generated: 19.05.24, 00:26 GMT ]