@parfen

Здравствуйте!
Требуется в VBA написать процедуру, копирующую сетевой файл (документ Excel) на рабочий стол пользователя. Как узнать путь? Система у пользователя может быть от Win95 до WinNT и Win2000.

0

@sharig

посмотри в данном разделе, точно есть - http://vbnet.ru/faq/showfaqgroup.asp?id=27

0

@parfen

Спасибо за отклик!
Да, я нашел там нужный код, но он не работает. В строке 'Private Enum SpecialFolderIDs' ругается на 'Enum':

Ошибка компиляции.
Ожидалось: идентификатор

Буду признателен всем, кто объяснит, в чем дело. Вот сам код:

Private Enum SpecialFolderIDs
sfidDESKTOP = &H0 'рабочий стол
sfidPROGRAMS = &H2
sfidPERSONAL = &H5
sfidFAVORITES = &H6
sfidSTARTUP = &H7
sfidRECENT = &H8
sfidSENDTO = &H9
sfidSTARTMENU = &HB
sfidDESKTOPDIRECTORY = &H10
sfidNETHOOD = &H13
sfidFONTS = &H14
sfidTEMPLATES = &H15
sfidCOMMON_STARTMENU = &H16
sfidCOMMON_PROGRAMS = &H17
sfidCOMMON_STARTUP = &H18
sfidCOMMON_DESKTOPDIRECTORY = &H19
sfidAPPDATA = &H1A
sfidPRINTHOOD = &H1B
sfidProgramFiles = &H10000
sfidCommonFiles = &H10001
End Enum
Private Declare Function SHGetSpecialFolderLocation Lib 'shell32' (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long
Private Declare Function SHGetPathFromIDListA Lib 'shell32' (ByVal pIdl As Long, ByVal pszPath As String) As Long
Const NOERROR = 0
Dim sPath As String
Dim IDL As Long
Dim strPath As String
Dim lngPos As Long

Private Function GetSpecFolder(speFolder As SpecialFolderIDs)
If SHGetSpecialFolderLocation(0, speFolder, IDL) = NOERROR Then
sPath = String$(255, 0)
SHGetPathFromIDListA IDL, sPath
lngPos = InStr(sPath, Chr(0))
If lngPos > 0 Then
GetSpecFolder = Left$(sPath, lngPos - 1)
End If
End If
End Function

Private Sub Command1_Click()
MsgBox GetSpecFolder(sfidFAVORITES)
MsgBox GetSpecFolder(sfidPROGRAMS)
End Sub

1

@sharig

а у меня работает (Вин-98). У тебя весь код находится в основной форме?

0

@subd

у меня тоже работает

0

@parfen

А у меня не идет (Win-98 и 2000)! Почти все другие примеры испробовал с того сайта, они работают, а этот, который нужен, - нет!
Я в модуле размещал скрипт, не в форме. А процедуру command1_click запускал по F5.

0

@parfen

Попробовал в Microsoft Office 2000 - работает! Значит, этот код работает тока в новом офисе... А мне надо в старом...

Людиии! Подарите код, который бы работал в офисе-97! Кто-нибудь знает? По гроб благодарен буду!

0