Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как через окно ,,Open,, получить полное файла 
:(
    Опции темы
mihanik
Дата 1.9.2006, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Создаём новую папку...


 
Код

Function CreateFolderDemo

  Dim fso, f
   Dim strFolderName as String

   Set fso = CreateObject("Scripting.FileSystemObject")

   strFolderName = Options.DefaultFilePath(wdCurrentFolderPath) + "\" + "Copy"

   Set f = fso.CreateFolder(strFolderName )

   CreateFolderDemo = f.Path

End Function



Файл сам скопируешь?

Это сообщение отредактировал(а) mihanik - 1.9.2006, 09:45


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
glotik
Дата 1.9.2006, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 31.8.2006

Репутация: нет
Всего: нет
Ну вообще-то я уже создал новую папку...вот так
:
Код

strMyFullPath = Options.DefaultFilePath(wdCurrentFolderPath) + "\Copy"
MsgBox strMyFullPath
MsgBox fName
MkDir strMyFullPath


 вот самая загвоздка в том что мне надо сослаться на этот файл...и далее его еще переименовать..ну думаю переименовать я смогу...мне бы хотя бы скопировать..
PM MAIL   Вверх
mihanik
Дата 1.9.2006, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Код

FileSystemObject.CopyFile "Полное имя откуда", "Полное имя куда"


Т.е. если ты заметил то здесь попутно с копированием можно и переименовывать...



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
glotik
Дата 1.9.2006, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 31.8.2006

Репутация: нет
Всего: нет
вобщем по этим советам я сделал вот так:
Код

Sub OpenWordFile321()
Const iTitle = "Îòêðûòèå ôàéëà"
Dim fName As String
Dim lRetVal As Long
Dim fPath As String
Dim strMyFullPath As String
Dim strMyFullPath1 As String
Dim qwerty
 With Application.Dialogs(wdDialogFileOpen)
lRetVal = .Display
fName = .Name
End With
strMyFullPath = Options.DefaultFilePath(wdCurrentFolderPath) + "\" + fName
strMyFullPath1 = Options.DefaultFilePath(wdCurrentFolderPath) + "\Copy"
MsgBox strMyFullPath
MsgBox strMyFullPath1
MsgBox fName
MkDir strMyFullPath1
FileSystemObject.CopyFile "strMyFullPath", "strMyFullPath1"
End Sub
но у меня он выдает ошибку...скорее всего я неправильно указываю полное имя файла...может дело в кавычках???
PM MAIL   Вверх
mihanik
Дата 1.9.2006, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Вопрос.

Зачем ты имя переменной берёшь в кавычки? 
 smile 
Цитата(glotik @  1.9.2006,  10:21 Найти цитируемый пост)
"strMyFullPath" 


Добавлено @ 10:40 
Кроме того...
Ты уверен, что полное имя файла "куда" будет таким?

Цитата(glotik @  1.9.2006,  10:21 Найти цитируемый пост)
strMyFullPath1 = Options.DefaultFilePath(wdCurrentFolderPath) + "\Copy"




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
glotik
Дата 1.9.2006, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 31.8.2006

Репутация: нет
Всего: нет
имя ,,куда,, у меня есть как папка ,,Copy,, которая находится в папке выбираемого файла
а если не таким, то каким??? (извини за настырность, просто очень надо)))))))
PM MAIL   Вверх
mihanik
Дата 1.9.2006, 10:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Уф...
Приду с обеда покопаюсь...
Это будет часа через 1,5 - 2...


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
glotik
Дата 1.9.2006, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 31.8.2006

Репутация: нет
Всего: нет
спасибо...буду ждать)))
PM MAIL   Вверх
mihanik
Дата 1.9.2006, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Проверил.
У меня работает...

Код

Private Sub CommandButton1_Click()
Dim strFolder1, strFolder2 As String
Dim strFileName1, strFileName2 As String
Dim MyFSO As Object

    ' Открываем диалог открытия файла
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Выберите файл!"
            .Show
        ' Если что-то выбрали, то strFileName1 будет хранить
        ' ПОЛНОЕ ИМЯ ФАЙЛА (включая диск и каталоги)
        If .SelectedItems.Count > 0 Then strFileName1 = .SelectedItems(1)
    End With
    
    If Len(strFileName1) = 0 Then
        MsgBox "Не указано имя файла!", vbCritical, "Ошибка"
        Exit Sub
    End If
    
    ' Получаем только путь, по которому хранится файл
    strFolder1 = Options.DefaultFilePath(wdCurrentFolderPath)
    
    ' Собираем из имеющихся данных имя второго каталога,
    ' где будут храниться копии файлов.
    strFolder2 = strFolder1 + "\Copy"
    
    ' Если каталога с именем strFolder2 нет, то создаём его...
    ' В противном случае машина отругает нас и скажет, что произошла ошибка доступа к каталогу...
    If Len(Dir(strFolder2)) <> 0 Then MkDir strFolder2
    
    ' Вычисляем имя архивного файла...
    strFileName2 = strFolder2 + "\Копия " + Mid(strFileName1, InStrRev(strFileName1, "\") + 1, Len(strFileName1) - InStrRev(strFileName1, "\") + 1)
    
    'Копируем файл strFileName1 в strFileName2
    Set MyFSO = CreateObject("Scripting.FileSystemObject")
    MyFSO.CopyFile strFileName1, strFileName2

End Sub



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
glotik
Дата 1.9.2006, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 31.8.2006

Репутация: нет
Всего: нет
спасибо тебе огромное..и последний вопрос: где хранится имя скопированного файла...
мне просто надо его переименовать по типу: <имя файла> - <текущая дата> . <расширение>

Добавлено @ 13:01 
странно...первый раз копировал к себе - все работало..но у меня комп перезангрузился...теперь копирую еще раз - пишет ошибку - Path not fund......что это может быть?????
проверь у себя еще раз, пожалуйста???

Это сообщение отредактировал(а) glotik - 1.9.2006, 13:04
PM MAIL   Вверх
mihanik
Дата 1.9.2006, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
strFileName1 - полное имя исходного файла
strFileName2 - полное имя файла из папки ".\Copy"

У меня всё работает... smile 

Проверяй у себя!!! smile

Добавлено @ 13:12 
У меня оно переименовывается по типу

"Копия" <пробел> <имя файла>  . <расширение>

Цитата(glotik @  1.9.2006,  12:53 Найти цитируемый пост)
<имя файла> - <текущая дата> . <расширение>



Это сообщение отредактировал(а) mihanik - 1.9.2006, 13:09

Присоединённый файл ( Кол-во скачиваний: 1 )
Присоединённый файл  Doc1.doc 34,00 Kb


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1855 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.