Get Directory Dialog.bas (cdf0e10c) Get Directory Dialog.bas (8e9e5c11)
1Attribute VB_Name = "BrowseDirectorysOnly"
1Attribute VB_Name = "BrowseDirectorysOnly"
2'/*************************************************************************
3' *
4' * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5' *
6' * Copyright 2000, 2010 Oracle and/or its affiliates.
7' *
8' * OpenOffice.org - a multi-platform office productivity suite
9' *
10' * This file is part of OpenOffice.org.
11' *
12' * OpenOffice.org is free software: you can redistribute it and/or modify
13' * it under the terms of the GNU Lesser General Public License version 3
14' * only, as published by the Free Software Foundation.
15' *
16' * OpenOffice.org is distributed in the hope that it will be useful,
17' * but WITHOUT ANY WARRANTY; without even the implied warranty of
18' * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19' * GNU Lesser General Public License version 3 for more details
20' * (a copy is included in the LICENSE file that accompanied this code).
21' *
22' * You should have received a copy of the GNU Lesser General Public License
23' * version 3 along with OpenOffice.org. If not, see
24' * <http://www.openoffice.org/license.html>
25' * for a copy of the LGPLv3 License.
26' *
27' ************************************************************************/
2'*************************************************************************
3'
4' Licensed to the Apache Software Foundation (ASF) under one
5' or more contributor license agreements. See the NOTICE file
6' distributed with this work for additional information
7' regarding copyright ownership. The ASF licenses this file
8' to you under the Apache License, Version 2.0 (the
9' "License"); you may not use this file except in compliance
10' with the License. You may obtain a copy of the License at
11'
12' http://www.apache.org/licenses/LICENSE-2.0
13'
14' Unless required by applicable law or agreed to in writing,
15' software distributed under the License is distributed on an
16' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
17' KIND, either express or implied. See the License for the
18' specific language governing permissions and limitations
19' under the License.
20'
21'*************************************************************************
28
29' Modified as BIF_STATUSTEXT overflows for nested folders so is no longer
30' shown.
31
32'=====================================================================================
33' Browse for a Folder using SHBrowseForFolder API function with a callback
34' function BrowseCallbackProc.
35'

--- 108 unchanged lines hidden ---
22
23' Modified as BIF_STATUSTEXT overflows for nested folders so is no longer
24' shown.
25
26'=====================================================================================
27' Browse for a Folder using SHBrowseForFolder API function with a callback
28' function BrowseCallbackProc.
29'

--- 108 unchanged lines hidden ---