ДремучийА кто нибудь может подсказать обделенному истинным знанием как это делается с помощью winAPI? Что-то я в этой области совсем никак, ибо до этого не приходилось...
А открыть объект pfc_n_cst_filesrvwin32 и посмотреть религия не позволяет ?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
type os_securityattributes from structure
unsignedlong ul_length
string ch_description
boolean b_inherit
end type
Function boolean CreateDirectoryA (ref string directoryname, ref os_securityattributes secattr) library "KERNEL32.DLL"
public function integer of_createdirectory (string as_directoryname);//////////////////////////////////////////////////////////////////////////////
//
// Function: of_CreateDirectory
//
// Access: public
//
// Arguments:
// as_DirectoryName The name of the directory to be created; an
// absolute path may be specified or it will
// be relative to the current working directory
//
// Returns: Integer
// 1 if successful,
// - 1 if an error occurrs.
//
// Description: Create a new directory.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5 . 0 Initial version
// 5 . 0 . 03 Set ch_description to null and changed structure datatype from char to string
// to fix NT 4 . 0 directory creation inconsistency
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996 - 1997 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
os_securityattributes lstr_Security
lstr_Security.ul_Length = 7
SetNull(lstr_Security.ch_description) //use default security
lstr_Security.b_Inherit = False
If CreateDirectoryA(as_DirectoryName, lstr_Security) Then
Return 1
Else
Return - 1
End If
end function
