Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов
Как я понял команда CurDir возвращает текущий путь, далее по идее СhDir должна изменить его, однако при проверке оказалось что возвращаемое значение СurDir не изменяется. Аналогично и при использовании команд Application.Path
Что здесь не так?
И при удалении файлов .FileDelete, указывать надо имя файла, и он будет искаться по текущему пути или же надо указывать полное имя?
Цитата:
Originally posted by corvin
Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов.
Как я понял команда CurDir возвращает текущий путь, далее по идее СhDir должна изменить его, однако при проверке оказалось что возвращаемое значение СurDir не изменяется. Аналогично и при использовании команд Application.Path
Что здесь не так?
И при удалении файлов .FileDelete, указывать надо имя файла, и он будет искаться по текущему пути или же надо указывать полное имя?
Нужно исходя из некоторых условий выставлять текущий путь сохранения файлов.
Как я понял команда CurDir возвращает текущий путь, далее по идее СhDir должна изменить его, однако при проверке оказалось что возвращаемое значение СurDir не изменяется. Аналогично и при использовании команд Application.Path
Что здесь не так?
И при удалении файлов .FileDelete, указывать надо имя файла, и он будет искаться по текущему пути или же надо указывать полное имя?
СhDir действует в рамках текущего диска.
Надо писать пару операторов (например для e:\ddd\rrr)
ChDrive "e"
ChDir "\ddd\rrr"
Цитата:
Originally posted by gacol
СhDir действует в рамках текущего диска.
Надо писать пару операторов (например для e:\ddd\rrr)
ChDrive "e"
ChDir "\ddd\rrr"
СhDir действует в рамках текущего диска.
Надо писать пару операторов (например для e:\ddd\rrr)
ChDrive "e"
ChDir "\ddd\rrr"
а файл как можно удалить?
что-то у меня FileDelete не проходит:((
Цитата:
Originally posted by corvin
а файл как можно удалить?
что-то у меня FileDelete не проходит:((
а файл как можно удалить?
что-то у меня FileDelete не проходит:((
Вот так удается файл "c:\x.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\x.txt"
Цитата:
Originally posted by gacol
Вот так удается файл "c:\x.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\x.txt"
Вот так удается файл "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
Цитата:
Originally posted by freeloader
не надо никакой FSO, надо всего апи...
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
не надо никакой FSO, надо всего апи...
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Ну тогда и winAPI не нужно, можно просто использовать функцию VB - Kill "c:\1.txt"
Цитата:
Originally posted by SergeySV
Ну тогда и winAPI не нужно, можно просто использовать функцию VB - Kill "c:\1.txt"
Ну тогда и winAPI не нужно, можно просто использовать функцию VB - Kill "c:\1.txt"
Безусловно можно, но на API более красиво ;)