VBNet - Форум - КАк скопировать файл? и Как определить папку а...

Вопрос: КАк скопировать файл? и Как определить папку а... Добавлено: 24.11.02 12:50

Автор вопроса: Votmax | Web-сайт: basiccenter.narod.ru

КАк скопировать файл? и Как определить папку автозагрузки?
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Zeus ICQ: 161801353 Вопросов: 63 Ответов: 220	Web-сайт: apirussia.by.ru Профиль \| \| #1	Добавлено: 24.11.02 19:50
	А FileCopy не пробовал? И какая ещё папка автозагрузки? Из Пуска та что? Ответить

Номер ответа: 2
Автор ответа:

Sergey M.

Вопросов: 9
Ответов: 68

Профиль | | #2

Добавлено: 25.11.02 03:26

Dim f, fso As FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("C:\myfile.txt")
f.Copy "d:\myfile.txt"

или

Dim fso As FileSystemObject
Set fso = New Scripting.FileSystemObject
fso.CopyFile "c:\windows\*.bmp", "c:"

........

какая такая папка автозагрузки,

если хочешь, чтоб какой то файл запускался при старте Винов, делай так:

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Sub AddToStartup(ByVal sDescription As String, ByVal sFile As String)
    Dim lRegKey As Long
    RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lRegKey
    If lRegKey Then
        RegSetValueEx lRegKey, sDescription, 0, 1, ByVal sFile, Len(sFile)
        RegCloseKey lRegKey
    End If
End Sub

Передавай описание и путь к файлу, который нужно запустить...

Ответить

Номер ответа: 3 Автор ответа: ГАТ Вопросов: 2 Ответов: 117	Web-сайт: www.mail.ru Профиль \| \| #3	Добавлено: 25.11.02 16:01
	Я думаю имеется ввиду папка загрузки проекта или программы App.Path. Ответить

Страница: 1 |