Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Закачать файл на сервер

Автор: Sanechichek 28.9.2008, 14:25

Можно ли с помощью ВБА автоматически закачать файл на сервер (еще нужно вводить пароль доступа к серверу). Может можно с помощью какой нибуть библиотеки.

Автор: ТоляМБА 28.9.2008, 14:34

Sanechichek, а что за файл и какой сервер "не бароское это дело" указать то?
Ведь говорил же тебе уже сегодня как вопросы задавать.

Автор: Sanechichek 28.9.2008, 15:17

Ехсел файл(но помоему не имеет значение какой файл закачивать принцып один и тот же). А по поводу сервера:
Моя программа обрабатывает прайс для интернет магазина, нужно еще сделать так что бы он сразу после обработки закачивался на сервер(ftp).

Автор: Sanechichek 29.9.2008, 03:14

Ни у кого идей нету

Автор: mihanik 30.9.2008, 19:21

Sanechichek!!!
Мил человек!!!
У тебя доступ к серверу по FTP есть?
Или только http ?
Разница, блин!...

А если если по ftp, то попробуй копнуть в сторону *.bat .
Там это не так сложно...
ftp-клиент встроен в винду...

Автор: Sanechichek 2.10.2008, 03:57

У меня есть доступ. Через *.bat то можно, но хотелось бы на ВБА. Если можете подсказать, то пожалуйста подскажите.

Автор: mihanik 2.10.2008, 12:48

Хм... Когда мне из скрипта понадобилось произвести дефрагментацию диска я воспользовался возможностями системы.

Код


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'#
'# Процедура DefragDrives
'# Описание: Дефрагментирует диски компьютера
'# Вход    : Нет
'# Выход   : нет
'#
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub DefragDrives ()

Dim WSHShell
    
    On Error Resume Next
    Err.Clear
    
        Set WSHShell = WScript.CreateObject("WScript.Shell") 
        
            For I =1 To UBound(DriveList)
                WScript.Echo strDefragDrives1 & DriveList(I)
                
                    WshShell.Run "defrag " & DriveList(I) & " -f -v", 1, True 
                
                WScript.Echo strDefragDrives2 & DriveList(I) & vbCrLf
            Next 
    
        Set WSHShell = Nothing
    
    On Error Goto 0
            
End Sub

Почему бы и тебе так не сделать с FTP.

Автор: Akina 2.10.2008, 13:25

MS Inet Transfer Control запросто загружает файлы на FTP, даже с авторизацией.

Автор: mihanik 2.10.2008, 19:08

http://hiprog.com/index.php?option=com_content&task=view&id=376&Itemid=38