-
VB6 纯API调用打开文件夹对话框
2018-08-05 19:22:12免控件利用API获取选择的文件夹路径 以方便获取该文件夹下的文件处理 -
vb fso方式访问网络上的共享文件夹_局域网内电脑文件共享,快捷方便,不安全...
2020-12-08 15:58:45文件夹共享设置1、打开电脑,在电脑里找到需要共享的文件夹,鼠标右击选择“属性”;如下图2、选择后,会弹出文件夹属性小窗口,在小窗口上方有个“共享”直接点击;如下图3、然后在打开的共享选项窗口界面中,选...打开电脑“控制面板”,点击“网络和Internet选项”,选择“网络和共享中心”。
点击“更改高级共享设置”,选择“启用文件和打印机共享”。
点击“启用网络发现”,设置好以后,点击“保存更改”。
文件夹共享设置
1、打开电脑,在电脑里找到需要共享的文件夹,鼠标右击选择“属性”;如下图
2、选择后,会弹出文件夹属性小窗口,在小窗口上方有个“共享”直接点击;如下图
3、然后在打开的共享选项窗口界面中,选择点击“共享”;如下图
4、在共享界面选择用户,电脑默认会是系统高级用户,可以新建用户给予不同操作权限,选择好后点击下方“共享”;如下图
5、选择后,电脑系统会对文件夹开通共享,生成共享访问地址路径,我们选择复制路径后,就可以把分享给其它同事访问。如下图
这里大家需要注意,如果共享文件的电脑关机后,由于电脑网卡和硬盘都是不工作状态,所以会导致,其他用户电脑无法找到共享文件的IP地址,也就无法访问共享的文件夹了。
如果文件需要长期共享的话,可以找公司运维同事,把共享的文件上创建在服务器上,服务器一般是长期运行的,就不会导致其他同事电脑无法正常访问共享文件了。
访问的时候可以 开始--运行 \\192.168.0.11
输入共享文件夹电脑系统登录用户名administrator 密码
就可以访问了,两种方式一个IP地址访问,一个计算机名字访问。
也可以点击网络里面对方电脑计算机名字访问
不是一个网段的也可以访问,只要对方开启了文件共享功能,局域网内三层交换机ping通
win10的文件夹设置
-
?如何用vb程序设置文件夹权限
2007-08-30 17:30:00关于怎样用vb程序对win2000和win2003下NTFS格式的磁盘上的文件及文件夹进行用户权限操作,在论坛上发贴和在msdn搜到程序在对权限操作的时候都出现问题:在文件夹使用继承属性时,用程序设置过文件夹的权限后,打开...关于怎样用vb程序对win2000和win2003下NTFS格式的磁盘上的文件及文件夹进行用户权限操作,在论坛上发贴和在msdn搜到程序在对权限操作的时候都出现问题:
在文件夹使用继承属性时,用程序设置过文件夹的权限后,打开文件夹的"属性-》安全"标签的时候提示“XXXX 上的权限顺序不正确,可能导致某些数据无法作用。请按“确定”以继续并将权限正确排序,或按“取消”来复位权限。”
在在文件夹不是使用继承属性时,设置后权限正常!问题一直未解决希望各位能指教,谢谢!
论坛帖子地址:http://community.csdn.net/Expert/topic/5685/5685970.xml?temp=.499798
http://community.csdn.net/Expert/topic/5726/5726633.xml?temp=.5362818
程序如下:
Option Explicit
Private Const FOLDER_PATH = "f:/Test"
' Success status of high level access control APIs
Private Const ERROR_SUCCESS = 0&' Type of Securable Object we are operating in this sample code
Private Const SE_FILE_OBJECT = 1&
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
' The Security Information constants required
Private Const DACL_SECURITY_INFORMATION = 4&
Private Const SET_ACCESS = 2&Private Enum SE_OBJECT_TYPE
SE_UNKNOWN_OBJECT_TYPE = 0&
SE_FILE_OBJECT = 1&
SE_SERVICE = 2&
SE_PRINTER = 3&
SE_REGISTRY_KEY = 4&
SE_LMSHARE = 5&
SE_KERNEL_OBJECT = 6&
SE_WINDOW_OBJECT = 7&
End Enum
' Standard access rights extracted from WinNT.h
Private Const SYNCHRONIZE = &H100000
Private Const READ_CONTROL = &H20000
Private Const WRITE_DAC = &H40000
Private Const WRITE_OWNER = &H80000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const DELETE = &H10000' Generic access rights extracted from WinNT.h
Private Const GENERIC_ALL = &H10000000
Private Const GENERIC_EXECUTE = &H20000000
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000' Inheritance Flags
Private Const CONTAINER_INHERIT_ACE = &H2
Private Const OBJECT_INHERIT_ACE = &H1' The TRUSTEE structure identifies the user account, group account, or logon session
' to which an ACE applies. The structure can use a name or a security identifier (SID)
' to identify the trustee.' Access control APIs, such as SetEntriesInAcl and GetExplicitEntriesFromAcl, use this
' structure to identify the account associated with the access-control or audit-control
' information in an EXPLICIT_ACCESS structure.
Private Type TRUSTEE
pMultipleTrustee As Long
MultipleTrusteeOperation As Long
TrusteeForm As Long
TrusteeType As Long
ptstrName As String
End Type' EXPLICIT_ACCESS structure that specifies access-control information for a specified
' trustee such as access mask as well as inheritance flags
Private Type EXPLICIT_ACCESS
grfAccessPermissions As Long
grfAccessMode As Long
grfInheritance As Long
pTRUSTEE As TRUSTEE
End Type' High Level access control API declarations
Private Declare Sub BuildExplicitAccessWithName Lib "Advapi32.dll" Alias _
"BuildExplicitAccessWithNameA" _
(ea As Any, _
ByVal TrusteeName As String, _
ByVal AccessPermissions As Long, _
ByVal AccessMode As Integer, _
ByVal Inheritance As Long)
Private Declare Function SetEntriesInAcl Lib "Advapi32.dll" Alias _
"SetEntriesInAclA" _
(ByVal CountofExplicitEntries As Long, _
ea As Any, _
ByVal OldAcl As Long, _
NewAcl As Long) As LongPrivate Declare Function GetNamedSecurityInfo Lib "Advapi32.dll" Alias _
"GetNamedSecurityInfoA" _
(ByVal ObjName As String, _
ByVal SE_OBJECT_TYPE As Long, _
ByVal SecInfo As Long, _
ByVal pSid As Long, _
ByVal pSidGroup As Long, _
pDacl As Long, _
ByVal pSacl As Long, _
pSecurityDescriptor As Long) As Long
Private Declare Function SetNamedSecurityInfo Lib "Advapi32.dll" Alias _
"SetNamedSecurityInfoA" _
(ByVal ObjName As String, _
ByVal SE_OBJECT As Long, _
ByVal SecInfo As Long, _
ByVal pSid As Long, _
ByVal pSidGroup As Long, _
ByVal pDacl As Long, _
ByVal pSacl As Long) As LongPrivate Declare Function LocalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Sub Command1_Click()
Dim result As Long
Dim pSecDesc As Long
Dim ea As EXPLICIT_ACCESS
Dim pNewDACL As Long
Dim pOldDACL As Long
' Get the DACL information of the folder using GetNamedSecurityInfo() API.
' SE_FILE_OBJECT constant says that the named securable object is a file or folder
result = GetNamedSecurityInfo(FOLDER_PATH, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, 0&, 0&, pOldDACL, 0&, pSecDesc)
If result = ERROR_SUCCESS Then
' Construct an EXPLICIT_ACCESS structure for Everyone with GENERIC_ALL access that will apply for c:/test1
' as well as subfolder and files using BuildExplicitAccessWithName() API
BuildExplicitAccessWithName ea, "EVERYONE", GENERIC_ALL, SET_ACCESS, CONTAINER_INHERIT_ACE Or OBJECT_INHERIT_ACE
' Merge constructed EXPLICIT_ACCESS structure to the existing DACL and get an updated DACL in memory from
' SetEntriesInAcl() API
result = SetEntriesInAcl(1, ea, pOldDACL, pNewDACL)
If result = ERROR_SUCCESS Then
MsgBox "SetEntriesInAcl succeeded"
' Call SetNamedSecurityInfo() API with the updated DACL in memory to change the DACL of c:/test folder
result = SetNamedSecurityInfo(FOLDER_PATH, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, 0&, 0&, pNewDACL, 0&)
If result = ERROR_SUCCESS Then
MsgBox "SetNamedSecurityInfo succeeded"
Else
MsgBox "SetNamedSecurityInfo failed with error code : " & result
End If
' Free the memory allocated for the new DACL by the SetEntriesInAcl() API, using LocalFree() API
LocalFree pNewDACL
Else
MsgBox "SetEntriesInAcl failed with error code : " & result
End If
' Free the memory allocated for the security descriptor by the GetNamedSecurityInfo() API, using LocalFree() API
LocalFree pSecDesc
Else
MsgBox "GetNamedSecurityInfo failed with error code : " & result
End If
End Sub -
VBA 对 文件和文件夹的操作
2010-06-24 19:04:00我们在使用Excel VBA进行处理...注意,这里所涉及的文件一般以Excel为主。对于如何运用文件之间的处理,如,文本文件、WORD、ACCESS和PPT与EXCEL之间的互访与查询,我们将在下节中讲解。在本节开始之前,我们需要预备
我们在使用Excel VBA进行处理数据时,或多或少会涉及到如何操作文件和文件夹。本节将重点讲述如何新建、打开、删除、复制、移动和重命名文件和文件夹操作等。
对于文件和文件夹操作,我们一般通过下面方法:
。VB命令
。EXCEL对象
。引用其他动态库对象
。API函数
在这里,我们尽可能通过不同的方法来展示如何操作文件和文件夹。注意,这里所涉及的文件一般以Excel为主。
对于如何运用文件之间的处理,如,文本文件、WORD、ACCESS和PPT与EXCEL之间的互访与查询,我们将在下节中讲解。
在本节开始之前,我们需要预备的知识点:
1、如何引用动态工程库。
打开VBE-工具-引用
选择Microsoft Scripting Runtime动态库
下面我们将会频繁用到Scripting.FileSystemObject对象来操作文件和文件夹。
另,此scrrun.dll动态库还包含了Scripting.Dictionary字典对象。
2、前期绑定和后期绑定
我们知道,VB是面向对象化编程,MS提供很多的DLL动态链接库,通过这些对象,我们可以轻松地完成任务。我们可以通过前期绑定或后期绑定来引用DLL库。
1)前期绑定。如同我们在上面用手动引用动态工程库方式,在编译代码前,我们就完成了的绑定。绑定之后,写入下面代码,创建和引用对象:
Sub BandObject()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
DIM FSO NEW Scripting.FileSystemObject
End Sub
2)后期绑定。使用CreateObject函数,绑定某一个对象。此时,我们只有在程序运行时,绑定才有效,如,
Sub CrtObject()
Dim ObjFso As Object
Set ObjFso = CreateObject("Scripting.FileSystemObject")
End Sub
3、小结:
1)、前期和后期绑定区别在于定义方式和创建方式不同。
2)、前期绑定的优势在于,可以使用自动列出成员方式,查看对象的方法和属性;而后期绑定无法使用。
3)、小心后期绑定的写法。不是所有的后期绑定都是和前期绑定的对象写法一致。如,对象库:Microsoft Shell Controls And Automation
前期绑定:
Dim oShell As Shell32.Shell
Set oShell = New Shell32.Shell
后期绑定:
Dim oShell As Object
Set oShell = CreateObject("Shell.Application")一、文件操作
1、新建Excel文件
Excel对象:Add方法:2、打开文件
1)、EXCEL对象:Open方法
直接打开一个工作簿。
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)
2)、Excel对象:OpenText
3)、Office对象:FileDialog
通过浏览方式打开文件
4)、API函数方式
打开所有类型的文件1、保存文件
1)、Excel对象:Save
Sub SaveWorkbook()
ThisWorkbook.Save
End Sub
2)、Excel对象:SaveAs
Sub SaveAsWorkbook()
Dim strFileName As String
strFileName = ThisWorkbook.Path & "/test.xls"
On Error Resume Next
ThisWorkbook.SaveAs strFileName
End Sub
3)、Excel对象:SaveCopyAs
Sub SaveCopyAsWorkbook()
Dim strFileName As String
strFileName = ThisWorkbook.Path & "/test.xls"
On Error Resume Next
ThisWorkbook.SaveCopyAs strFileName
End Sub
2、判断文件夹是否存在
1)、VB命令:Dir()
2)、FileSystemObject对象:FileExists方法1、建立文件的桌面快捷方式
WScript 对象:CreateShortCut方法
2、移动文件
1)、FileSystemObject对象:MoveFilet
2)、Office对象:Name1、复制文件
1)、Office对象:FileCopy
2)、FileSystemObject对象:CopyFile
2、关闭文件
Excel对象:Close方法
Sub CloseWorkbook()
ThisWorkbook.Close False
End Sub1、文件重命名
Office对象:Name
删除文件
1)、VB语句:Kill
2)、FileSystemObject对象:DeleteFile方法
10、文件自杀
VB语句:Kill
二.文件夹操作
1、新建文件夹2、打开文件夹
1)、Shell
2)、引用Microsoft Shell Controls And Automation动态库
1)后期绑定方式,选择文件夹
2、复制文件夹
FileSystemObject对象:CopyFolder
1、移动文件夹
FileSystemObject对象:MoveFolder
2、删除文件夹
VB语句:RmDirShell语句
FileSystemObject对象:DeleteFolder
1、获取父文件夹名
FileSystemObject对象:ParentFolder
VBA :Split函数
2、文件夹重命名
FileSystemObject对象:Folder.name
VB语句:Name -
XP下生成的VB可执行文件,不能在WIN7上使用
2015-11-13 08:03:34我在XP环境下开发了一个程序,生成可执行文件,然后把需要的控件放在同一个文件夹目录下,这样即使用在没有安装VB软件的XP系统上,程序也可以正常运行、调用控件。 现在这个东西放在WIN7上,一打开就提示“未预期... -
C#/VB.NET 在PDF中添加文件包(Portfolio)的方法
2020-12-17 05:18:04环境准备:程序中需要使用到PDF类库工具(Spire.PDF for .NET hotfix 6.5.15及以上版本)下载后,解压,将Bin文件夹下的dll文件添加引用到VS程序。如下效果: 1. 创建文件包时直接添加文件 C# using Spire.Pdf; ... -
Vb修改文件的创建时间_src.rar
2020-09-12 17:16:42可以派出在同一时间内,新增档案,通过简单的拖放或由进口任何情况下,它会打开不同的方式,使其尽快这样做。您可以使档案的比例年轻或年纪较大,或有针对性的具体时间!使用newfiletime的软件,就可以轻松修改... -
解决VB.Net使用DevExpress控件破解版,项目发布后每次打开程序都弹框的问题
2021-02-07 20:00:44然后我大VB没有Properties这个东东,于是在项目文件里检索了一下,发现licenses.licx文件在My Project文件夹里,于是打开VS想去改属性,然而在解决方案视图下My Project并没有下一级的列表,双击是直接打项目属性的...刚遇到这个问题就问度娘了,奈何上面全是C#的解决方法:
大体意思就是在项目Properties下找到licenses.licx文件,直接删除或者把生成属性设置成“无”。
然后我大VB没有Properties这个东东,于是在项目文件里检索了一下,发现licenses.licx文件在My Project文件夹里,于是打开VS想去改属性,然而在解决方案视图下My Project并没有下一级的列表,双击是直接打项目属性的配置界面,找遍所有地方没找到相关的东西,于是切换到文件夹视图,找到licenses.licx文件,右键,额。。。没有“属性”这个选项。彻底蒙逼。
最后:直接打开licenses.licx文件,删除里面所vb.net教程有内容,弹框没了,解决问题。
-
C#/VB.NET 在PDF中添加文件包(Portfolio)
2020-06-29 10:06:04PDF文件包(Portfolio)允许用户将多种不同类型...环境准备:程序中需要使用到PDF类库工具(Spire.PDF for .NET hotfix 6.5.15及以上版本)下载后,解压,将Bin文件夹下的dll文件添加引用到VS程序。如下效果: 1. 创 -
vb.net如何打包exe安装文件
2021-02-10 10:37:191:新建安装部署项目 打开VS,点击新建项目,选择:其他项目类型->安装与部署->安装向导(安装项目也一样),然后点击确定.(详细见下图) 此主题相关图片如下: 2:安装向导 关闭后打开安装向导,...文件,将你的做的应用 -
打开VB6.0后并没有“金蝶 k/3-BOS”菜单的问题
2016-05-10 08:25:00将此文件夹下的两个 DLL 文件 ( K3BOSPLUGINSADDIN.dll 和 K3GLParaConsolePlugin.dll ) ,在 CMD 命令行中用 RegSvr32 命令进行注册。 例如: K3 安装目录为 C:\ProgramFiles\Kingdee\K3ERP ... -
VB编程资源大全(源码 文件)
2007-10-17 22:40:03shname.ZIP 获得Win9X文件的8.3文件名(2KB) 7,FileOP.ZIP 利用API函数对文件进行拷贝,移动,删除等操作(2KB) 8,RunShort.ZIP 自动利用与选中的文件相适应的程序打开文件(2KB) 9,clpdcopy.ZIP ... -
VB编写的工具包 (开源)
2010-10-10 19:51:22这个工具包是用VB编写的 能简单的实现打开exe文件和文件夹 但是没有解决的是在Win7下打开需要管理员的权限才能打开的可执行文件。此工具包开源 希望各位大虾看后能给出修改意见 小弟在此谢过了!!!!! -
VB制作的小工具
2012-07-19 11:03:11是保存在“模板”文件夹下。模板文件的文件名和文件内容中,可加入用户自己的变量。变量的格式是用两个“%”括起来。软件窗体中会把模板中所有出现的变量名列出,供用户赋值。至于这功能用着方便不方便,您用过就... -
vb,sql做的理财系统
2010-05-20 15:55:146)进入"SQL 查询分析器"后,点击文件菜单下的"打开"菜单项,找到"餐饮管理系统"文件夹中的 "data"文件夹,点击"CYGLXT.sql"脚本,然后在数据库列表中选择"CYGLXT"数据库,按执行按钮, 即可生成"CYGLXT"数据库。 7)... -
vb6.0 php,vb6.0安装教程
2021-03-23 15:50:05vb6.0安装教程右击软件压缩包,选择解压到“VB6.0”打开visual basic 6.0文件夹。双击打开SETUP.EXE,然后选择运行程序。点击下一步。选择接受协议,点击下一步。输入产品的ID号:111-111111,其他随便填,点击下... -
VB滚轮安装
2019-08-25 15:22:181.首先下载一个VB滚轮安装包,下载后的vb6mousewheel.exe(下载后的文件名称就是“vb6鼠标滚轮”),进行两次解压,可以看到5个文件,其中有VB6IDEMouseWheelAddin.dll,把它复制到C:/WINDOWS/system32文件夹下。... -
vb6mousewheel
2010-12-07 12:15:15不用安装,你注册一下里面的那个VB6...将 VB6IDEMouseWheelAddin.dll 文件复制到 C:\WINDOWS\system32 文件夹下 然后点击 开始——运行 打开运行对话框后,在里面输入: regsvr32 VB6IDEMouseWheelAddin.dll -
VB制作播放器的播放列表控件,十分漂亮.rar
2019-07-10 10:34:17VB制作播放器的播放列表控件,十分漂亮,这个列表看上去像是早几年的QQ音乐播放器的风格,现在QQ播放器不是这样子了,MLIST目录中为该列表的控件源码,调用前请编译此项目生成ocx文件,放在示例文件夹下。... -
VB6鼠标滚轮补丁
2014-12-10 16:40:13此补丁不用安装,也不用开机开插件,可以说是...将 VB6IDEMouseWheelAddin.dll 文件复制到 C:\WINDOWS\system32 文件夹下 然后点击 开始——运行 打开运行对话框后,在里面输入: regsvr32 VB6IDEMouseWheelAddin.dll -
VB生成"正宗"DLL的一个不错的插件
2008-03-06 14:01:26将'compiled'目录下的'MakeDLL.exe'文件拷贝到VB目录下 打开 'addin'目录下的'MakeDLLAddin.vbp',编译之 打开VB=>'外界程序'=>'外界程序管理器',会看到一个叫做'Create DLLs In Visual Basic'或类似名字的东东,... -
与进程相关的VB小例子,共六个打包下载.rar
2019-07-09 16:38:31我的电脑-工具-文件夹选项-查看-去掉 隐藏受保护的操作系统文件(推荐) 前面的钩。然后选中 显示所有文件和文件夹。-确定 2、找到了这个文件了吧。 3、用记事本打开。 4、看这句: multi(0)disk(0)rdisk(0)... -
使用单独的解决方案(类库)来开发DNN的模块,并安装、制作.dnn文件-VB版本(1)...
2008-07-18 17:34:002、创建一个类库,类库的位置放在 DesktopModules文件夹下,然后在 VS2005里面刷新DesktopModules文件夹,会看到新加的类库,相当于类库包含在DNN下。 3、为类库添加.ascx文件,因为类库不可以直接... -
永久滚轮VB6IDEMouseWheelAddin.zip
2019-12-21 17:38:01方法二 : 将 VB6IDEMouseWheelAddin.dll 文件复制到 C:\WINDOWS\system32 文件夹下 然后点击 开始——运行打开运行对话框后,在里面输入: regsvr32 C:\WINDOWS\system32\VB6IDEMouseWheelAddin.dll 打开vb6.0... -
vb编程软件_原创经验,如何安装vb编程软件
2020-12-11 14:35:22第1步:在vb官网上,下载vb安装包,将安装包内的文件解压出来。第2步:打开解压后的文件夹,然后找到SETUP文件。第3步:双击SETUP文件,选择下一步。第4步:它会显示出最终的用户协议,我们仅仅需要点击同意,并进行... -
无敌命令行工具--将VB的功能植入批处理
2009-06-26 15:09:19弹出对话框 msgbox [Prompt] [Buttons] [Title] 按下的按钮 msgbox 即将关机 1 000 1 弹出对话框等待用户选择或确定 弹出输入窗口 inputbox [Prompt] [Title] [Default] [X] [Y] 输入的内容 inputbox 请输入数字 ...