Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов

3.8K
14 июля 2004 года
corvin
31 / / 04.07.2004
Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов.
Как я понял команда CurDir возвращает текущий путь, далее по идее СhDir должна изменить его, однако при проверке оказалось что возвращаемое значение СurDir не изменяется. Аналогично и при использовании команд Application.Path
Что здесь не так?
И при удалении файлов .FileDelete, указывать надо имя файла, и он будет искаться по текущему пути или же надо указывать полное имя?
459
14 июля 2004 года
gacol
273 / / 12.02.2003
Цитата:
Originally posted by corvin
Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов.
Как я понял команда CurDir возвращает текущий путь, далее по идее СhDir должна изменить его, однако при проверке оказалось что возвращаемое значение СurDir не изменяется. Аналогично и при использовании команд Application.Path
Что здесь не так?
И при удалении файлов .FileDelete, указывать надо имя файла, и он будет искаться по текущему пути или же надо указывать полное имя?



СhDir действует в рамках текущего диска.
Надо писать пару операторов (например для e:\ddd\rrr)
ChDrive "e"
ChDir "\ddd\rrr"

3.8K
14 июля 2004 года
corvin
31 / / 04.07.2004
Цитата:
Originally posted by gacol


СhDir действует в рамках текущего диска.
Надо писать пару операторов (например для e:\ddd\rrr)
ChDrive "e"
ChDir "\ddd\rrr"


а файл как можно удалить?
что-то у меня FileDelete не проходит:((

459
14 июля 2004 года
gacol
273 / / 12.02.2003
Цитата:
Originally posted by corvin

а файл как можно удалить?
что-то у меня FileDelete не проходит:((


Вот так удается файл "c:\x.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\x.txt"

6.2K
14 июля 2004 года
freeloader
27 / / 12.06.2004
Цитата:
Originally posted by gacol

Вот так удается файл "c:\x.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\x.txt"



не надо никакой FSO, надо всего апи...
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

258
14 июля 2004 года
SergeySV
1.5K / / 19.03.2003
Цитата:
Originally posted by freeloader


не надо никакой FSO, надо всего апи...
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long



Ну тогда и winAPI не нужно, можно просто использовать функцию VB - Kill "c:\1.txt"

6.2K
14 июля 2004 года
freeloader
27 / / 12.06.2004
Цитата:
Originally posted by SergeySV


Ну тогда и winAPI не нужно, можно просто использовать функцию VB - Kill "c:\1.txt"


Безусловно можно, но на API более красиво ;)

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог