说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB利用API创建文件目录

HTML文档下载 WORD文档下载 PDF文档下载
VB利用API创建文件目录
作者:李志东
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Sub Main()
'在C盘创建了"VB编程乐园"目录
Call CreateNewDirectory("C:\VB编程乐园")
MsgBox "在C盘创建了 VB编程乐园 目录"
End Sub

Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
Dim iFlag As Integer
iFlag = 0
sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1

'创建目录

SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub
建立简单的任务栏应用程序-Delphi资料 将程序放在Windows启动中-Delphi资料 将光标限制在某区域-Delphi资料 将文件放入回收站-Delphi资料 禁止用户切换任务-Delphi资料 控制面板大全-Delphi资料 控 制 系 统 菜 单-Delphi资料 拦截消息处理过程-Delphi资料 利用API函数开发DELPHI程序三例 利用Hook技术实现键盘监控-Delphi资料 利用浏览窗口 DragDrop 任意文件-Delphi资料 利用未公开函数实现Shell操作监视-Delphi资料 妙用Delphi的标识号 判断Windows类型和版本-Delphi资料 判断一个程序是否dos版本:-Delphi资料 屏蔽系统按键-Delphi资料 屏幕抓字技术揭密(转载)-Delphi资料 启动控制面板-Delphi资料 取得系统所有窗口的方法-Delphi资料 全部窗体可使用鼠标点中移动-Delphi资料 让图像旋转-Delphi资料 热启动控制-Delphi资料 如果隐藏和显示Windows的任务条-Delphi资料 如何把文件删除到回收站中-Delphi资料 如何从任务栏上隐藏应用程序的按纽?-Delphi资料 如何得到Windows 的temp路径-Delphi资料 如何得到WINDOWS的SYSTEM路径-Delphi资料 如何得到上一个激活的组件-Delphi资料 如何得到系统目录-Delphi资料 如何得到执行程序的当前路径-Delphi资料 如何访问一个进程的内存空间-Delphi资料 不好意思 , 小弟没分了 , 再问一个问题 , SLE控件中有没有响映回车键的事件. 汇编里数据类型间的转换函数有哪些? 谁知道base64的编码方法? cathy0505活泼有余,roani典型的北方闺女,MM书看的太多了,做梦爱 难道没有人会ADO事务处理吗?请帮忙回答‘这个事务操作错在哪?’ 请给以人道主义援助!!! 如何自定义消息??? 求救!请教高手VC里如何产生一个类似CDialogBar或CToolBar的可任意停靠的东西,并且拖动时没有虚框显示。 错误提示:“无法为更新行集定位:一些值可能已在最后读取后改变”。看一下,谢谢。 SQL Server 存储过程中错误处理问题,请教高手 請教: ADO 的 RecordSet 的打開方式和鎖方式 如何选择三层架构的中间件产品? 小呆猫谢谢了,再请教一下。。。 我想问一下,如何能在程序中锁定键盘和鼠标 西摩斯(厦门)医疗软件开发有限公司急招精通Delphi,MS SQL Sever软件设计师! 大家帮忙啊... 关于 int[][][] a = new int[3][3][3] 再问clavy(有巢无车氏) 和 wqxtt(wqxtt) 关于WINCE 下ACCESS 与 WINDOWS 下ACCESS 的转换 关于C/S结构的问题?快帮我啊!!! 各位programer加班有加班工资吗? 代理服务器的原理?——有谁知道! 请问怎么在一个对话框程序的文本框中绘图 请问windows网络程序PING编程技术里的几个问题,ICMP回显里面的timestamp是怎么纪录进去的 什么地方可以Down rose?或谁寄给我一个? 编写一个函数,通过指针连接两个字符串!!!!!!!!!!!! 用applet怎样打开一个文件吗? 请问哪种ORB产品实现了com服务器/corba客户机的桥 我读《深入探索C++对象模型》的感受,cber能再回答我一次么? 谁有DELPHI的有关网络编程方面的资料?给我一份可以吗? 关于stringgrid的问题????? 痛苦啊,难道要放弃BCB吗? 大家认为在开发过程中是否不能用全局变量? 如何让LINUX支持我显卡 高手,谁来帮我一下~! 取字符 在SDK中,如何获得客户区的宽度和高度呢??(哪两个函数呢?) 哪里有ATL的电子书下载?最好是中文的! 高手谁能帮帮我呀~~~~~~~! 请教:如何在statusbar的panel中显示一个图标呢? VC++中如何使用OLE对象? 初来乍到,发现这儿JJMM还挺多的。。。 请高人指教~! CSDN中碰到这种问题,该如何解决呢? 如何学习director 你能帮我一下吗?~ 企业商务管理软件,开放全部的源代码及开发文档! 企业管理软件,全套源码及开发文档!!!! 哪里有支持任何波特率的通讯控件下载? net_lover(孟子E章)请进~! 一个有关CWebBrowser的问题,急急急!!! 这样的语句为什么不可以实现一次删除多条记录 一、单选题(共 10 道试题,共 30 分.) V 1. 如果人们对闲暇的需求增加,则( ). A. 工资率会上升,劳动求助《西方经济学》答案 三角形ABC中,∠C=90°,若a:c=7:25,b=48,则a= ,△ABC的三条角平分线交于一点G,∠DAC=76°,∠ABE=20°.求∠BEC、∠ADC、∠DGC的度数 ____ghost exists in the world.That's your illusion.A.No such a thing as B.No such a thing as aC.No such thing as a D.No such thing as选D为什么不是C?____for a long time,the fields are all dried up.A.There has been no rain B.Having no rainC.There 在三角形ABC中,角C等于90°,COSA=5分之3,a=2,则,b+c=? 如图,三角形ABC的三条角平分线交于一点G,角BAC=76°,角ABE=20°,求角DGC的度数. 一、单选题(共 10 道试题,共 30 分.) V 1.管理人员的工作能一、单选题(共 10 道试题,共 30 分.)V 1.管理人员的工作能力越强,管理幅度().A.越大B.越小C.不变D.满分:3 分2.下列不属于人群关系 三角形ABC中,∠B,∠C的外角平分线交于E,则∠BEC等于多少? 如图,点E是△ABC的两条角平分线的交点.若∠A=80°,求∠BEC的度数. 一、单选题(共 50 道试题,共 100 分.)英语试题一、单选题(共 50 道试题,共 100 分.)V1.____he works hard,I don’t mind when he finishes the experiment.A.As soon asB.As well asC.So far asD.So long as满分:2 分2.She has 三角形ABC中,角B的外角平分线与角C的外角平分线交于点E.求证:角BEC=90°减二分之一角A. 如图,点E是△ABC两条角平分线的交点.(1)若∠A=80°,求∠BEC的度数.(2)若∠BEC=30°,求∠A的度数.(3)写出∠BEC与∠A之间的关系. 经济类题目,懂的朋友帮帮忙,一、单选题(共 50 道试题,共 100 分.)V 1.当存在外部经济时,6.如果价格上升10%能使买者的购买减少1%,则该商品的需求价格弹性()A.缺乏弹性B.富有弹性C.具有单 如图一,将三角形abc纸片折叠,使c落在三角形内部,求证,角abc加角bec等于两倍的角c (2)如图一,将三角形abc纸片折叠,使c落在三角形内部,求证,角abc加角bec等于两倍的角c(2)如图二,将三角形abc纸片 如图点E是△ABC的两条角平分线的交点 若∠A为80°求∠BEC的度数 若∠BEC=130°求∠A的度数 ∠BEC是直角吗.如图点E是△ABC的两条角平分线的交点若∠A为80°求∠BEC的度数 若∠BEC=130°求∠A的度数 一、英语单选题(共 20 道试题,共 100 分.)一、单选题(共 20 道试题,共 100 分.)V1._______ joyful he was to meet his father again!A.WhatB.HowC.How aD.What a 满分:5 分2.This flower smells ________.I like it a lot.A.badB. 如图,已知点E是三角形ABC的两条角平分线BE,CE的交点,试说明角BEC等于角A加角1加角2 如图,点E是△ABC的角平分线的交点.若∠BEC=130°,求∠A的度数 一、单选题(共 50 道试题,共 100 分.)V 1.ROM与RAM的主要区别是( ) A.断电后,ROM内保存的信息会 如图,在△ABC中,∠C=∠ABC=2∠A,BE是∠ABC的平分线,求BEC的度数 如图,点E是△ABC的角平分线的交点.⑴若∠A=80°,求∠BEC的度数⑵若角BEC=130度,求角A的度数 0.027+9·9x0·27怎样简便计算 如图,在△ABC中,∠C=∠ABC=2∠A,BE是∠ABC的平分线,求∠BEC的度数 如图,在△ABC中,∠A=60°,∠B、∠C的三等分线交于D、E,求∠BDC和∠BEC的度数. 0.027+9.9x0.27简便计算要过程 已知:DE∥BC,BE是∠ABC的平分线,∠ABC=70°,∠C=50°,试求∠DEB ∠BEC的度数 在三角形ABC中,∠B,∠C的角平分线相交于点D,若∠BDC=110°,求∠A的度数? 在三角形ABC中,角A,B,C的对边分别为a,b,c,且满足4sin^2(A+C)/2-cos2B=7/2求角B度数如果B=根号3,a+c=3.且a>c,求a,c 在三角形ABC中,∠B与∠C的外角平分线BE,CE交于点E 试说明∠BEC=90°-1/2∠A 如图已知在三角形abc中角a等于60度角b与角c的角平分线交于点b求角BDc的度数 在三角形ABC中,a,b,c分别为角A,B,C的对边,4sin²(B+C)/2-cos2A=7/2(1)求A的度数(2)若a=√3,b+c=3,求b与c的值 如图11-1-12,已知点E是角ABC的两条角平分线BE,CE的交点,试说明角BEC等于角A加角1加角2. 三角形ABC的角B和角C的平分线交于点D角A和角BDC的度数分别为x和y当角A的度数x发生变化1.求出变量y与x之间的关系式2.当x由40度变化到100度时,角BDC的度数Y发生怎样的变化? 在三角形abc中,角a,b,c所对的边分别为a,b,c,已知c=2,acosb-bcosa=7acosB-bcosA=7/2.第一问:求bcosA的值。第二问:设a=4.求三角形ABC的面积 如图,△ABc为等边三角形,角1=角2=角3,①求角BEc②△DEF是等边三角形吗? 如图,在三角形ABC中,角A大于角B,CD是AB边上的高,CE平分角ACB.求证:角DCE=速度 我现在就要求证:角DCE=二分之一(角A-角B) 已知在▲ABC中,角A等于2分之1角B等于3分之1角C,它的最长边为2,求这个三角形的面积? 三角形ABC和三角形DEC均为等边三角形,角DAB=40°角ACD=15°求角BEC的度数 如图,角A=50°,角ABC=60°.(1)若BD为角ABC平分线,求角BDC.(2)若CE为角ACB平分线且交BD于E,求角BEC别说看不清图,图上条件在已知中已经有了 在三角形ABC中,角A,B,C所对的边分别是a,b,c,已知c等于2,C等于3分之派,若三角形的面积等于根号3,求a,b 如图,在三角形ABC中,角BAC=90°,AD⊥BC于D,BF平分∠ABC交于E点,交AC于F点,求证角AEF=角AFE 如图,角A=64度,角ABD=30度,角ACB=72度,且CE平分角ACB,求角BEC的度数(不用三角形内角和等于180°) 在三角形ABC中,已知角A,B,C的对边分别为a,b,c.且a=2,B-C=二分之派,三角形ABC的面积为根号三.求边b. 已知:如图,三角形ABC中∠1=∠2,BE⊥AC于E,交AD 于F 求证:∠AFE=1/2(∠ABC+∠C 角a=65度,角acb=72度,且CE平分角ACB,BD平分角ABC,求角BEC的度数! 在三角形ABC中,a,b,c分别是角A,B,C,的对边,如果a,b,c成等差数列,角B是30度,三角形面积是三分之二求b 如图,在三角形ABC中,BC=10,边BC的垂直平分线交AB,BC与E,D,BE=6,求三角形BEC的周长 如图,在△ABC中,∠ACB=90°,AC=BC,BE⊥CE于点E,AD⊥CE于点D.求证:△BEC≌△CDA. 已知三角形的三边为abc,a-b=b-c=2,它的最大角的正弦值为二分之根号三,则三角形面积为多少? 如图,在等边三角形ABC的边BC、AC上分别取点D、E,使BD=CE,AD与BE相交于点F,求角AFE的度数 如图,在△ABC中,角ACB=90’,AC=BC,BE垂直CE于点E,AD垂直CE于点D.求证:△BEC全等于△CDA 已知a,b,c是三角形ABC的三条边,满足a/3=b/4=c/5,且a+b+c=24 (1)试求a,b,c的值 (2)判断三角形ABC的形状 三角形ABC的三条角平分线交于一点G,角BAC=76度,角ABE=20度.求角BEC,角ADC,角DGC的度数? 在△ABC中,∠ACB=90°,AC=BC,BE⊥CE于点E,AD⊥CE于点D.求证:△BEC≌△CDA 一、单选题(共 10 道试题,共 40 分.)V 1.等截面直杆在两个外力的作用下发生轴向压缩变形时,这对外力一、单选题(共 10 道试题,共 40 分.)V 1.等截面直杆在两个外力的作用下发生轴向压缩 已知a,b,c为三角形ABC的三边,(a-c):(a+b):(c-d)= -2:7:1,且a+b+c=24,试判断三角形ABC的形状 △ABC的三条角平分线交于一点G ∠BAC=76° ∠ABE=20° 求∠BEC ∠ADC ∠DGC 一、单选题(共 10 道试题,共 30 分.)1.新民主主义共和国的政体是:A.苏维埃代表大会制度B.参议会制度C.人民代表会议制度D.人民代表大会制度满分:3 分2.意识的反作用或能动性,从根本上说 已知a.b.c为三角形ABC的三边长,且(c-a):(a+b):(c-b)=2:7:1,a+b+c=24判断三角形形状 △ABC的三条平分线相交于一点G ∠BAC=76 ∠ABE=20 求∠BEC ∠ADC ∠DGC的△ABC的三条平分线相交于一点G ∠BAC=76 ∠ABE=20 求∠BEC的度数 http://hi.baidu.com/%C4%B3%CF%A3%CF%A3%CF%A3/album/,这是图片
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn