I have created Macro in office XP but it doesn't work in Office 2000 because
use of "Application.FileDialog(msoFileDialogFolderPicker) " in XP Macro which
is not supported in Office 2000.

Hi

As I don't use OfficeXP, I'm not sure what .. does, but I quess in Excel2000
you can try with
....
fFullName = Application.GetOpenFilename(Title:=fTitle,
FileFilter:=FilterList)


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )



"Naman.Patel" wrote in message
...
I have created Macro in office XP but it doesn't work in Office 2000
because
use of "Application.FileDialog(msoFileDialogFolderPicker) " in XP Macro
which
is not supported in Office 2000.

Naman,
Use the SHBrowseForFolder API (or one of the many wrapped in a class). Many
examples from Google.

NickHK

"Naman.Patel" wrote in message
...
I have created Macro in office XP but it doesn't work in Office 2000
because
use of "Application.FileDialog(msoFileDialogFolderPicker) " in XP Macro
which
is not supported in Office 2000.

"Arvi Laanemets"

your suggestion might be working but my problem is tha I want to select a
folder from dialog box which can work in both 2000 and XP and I need it's
title my own.

waiting for reply

Thanks for ur help

Hi

Is GetOpenFilename() not supported in OfficeXP? Usually they have features
from earlier versions supported - I think it is worth to check with
OfficeXP.


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )


"Naman.Patel" wrote in message
...
"Arvi Laanemets"

your suggestion might be working but my problem is tha I want to select a
folder from dialog box which can work in both 2000 and XP and I need it's
title my own.

waiting for reply

Thanks for ur help

Arvi,
I guess it is but the OP wants to select a Folder, not a file.
Hence I suggested the SHBrowseForFolder API.

NickHK

"Arvi Laanemets" wrote in message
...
Hi

Is GetOpenFilename() not supported in OfficeXP? Usually they have features
from earlier versions supported - I think it is worth to check with
OfficeXP.


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )


"Naman.Patel" wrote in message
...
"Arvi Laanemets"

your suggestion might be working but my problem is tha I want to select
a
folder from dialog box which can work in both 2000 and XP and I need
it's
title my own.

waiting for reply

Thanks for ur help

"Naman.Patel" wrote in message
...
"Arvi Laanemets"

your suggestion might be working but my problem is tha I want to select a
folder from dialog box which can work in both 2000 and XP and I need it's
title my own.

Is this work for you?

Sub test()
Dim str As String
str = getFoldername
MsgBox "folder: " & str
End Sub

Function getFoldername() As String
Dim objShell As Object
Dim ssfWINDOWS As Long
Dim objFolder As Object

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Select folder", 0)
If (Not objFolder Is Nothing) Then
getFoldername = objFolder.Self.Path
Else
getFoldername = ""
End If
Set objFolder = Nothing
Set objShell = Nothing
End Function

keizi

How to use shbrowseforfolder api???

I am using VBA enviornoment!!!

"NickHK" wrote:

Naman,
Use the SHBrowseForFolder API (or one of the many wrapped in a class). Many
examples from Google.

NickHK

"Naman.Patel" wrote in message
...
I have created Macro in office XP but it doesn't work in Office 2000
because
use of "Application.FileDialog(msoFileDialogFolderPicker) " in XP Macro
which
is not supported in Office 2000.

Thanks,

It is working fine and it has solved my problem.

but I want some more help on it. do u have ne help documents for this? I
need to open the file also..

Naman,
You can still use the Windows API. Get the API-Guide from
http://www.allapi.net/

NickHK

"Naman.Patel" wrote in message
...
How to use shbrowseforfolder api???

I am using VBA enviornoment!!!

"NickHK" wrote:

Naman,
Use the SHBrowseForFolder API (or one of the many wrapped in a class).
Many
examples from Google.

NickHK

"Naman.Patel" wrote in message
...
I have created Macro in office XP but it doesn't work in Office 2000
because
use of "Application.FileDialog(msoFileDialogFolderPicker) " in XP Macro
which
is not supported in Office 2000.

documents for BrowseFolder is here

http://msdn.microsoft.com/library/de...eforfolder.asp

and do you want just to open file like from explore or
want to get a file name to open?

if just want to open, then

Sub fnShellExploreVB()
Dim objShell As Object

Set objShell = CreateObject("Shell.Application")
objShell.Explore (0)
Set objShell = Nothing
End Sub

will open the file.

but want to get a file name to open, i think it's better to use
Application.GetOpenFilename like

sub test1()
fileToOpen = Application.GetOpenFilename("all files (*.*), *.*")
If fileToOpen < False Then
MsgBox "select : " & fileToOpen
End If
end sub

keizi

"Naman.Patel" wrote in message
...
Thanks,

It is working fine and it has solved my problem.

but I want some more help on it. do u have ne help documents for this? I
need to open the file also..