精华内容
下载资源
问答
  • 免控件利用API获取选择的文件夹路径 以方便获取该文件夹下的文件处理
  • 文件夹共享设置1、打开电脑,在电脑里找到需要共享的文件夹,鼠标右击选择“属性”;如图2、选择后,会弹出文件夹属性小窗口,在小窗口上方有个“共享”直接点击;如图3、然后在打开的共享选项窗口界面中,选...

    打开电脑“控制面板”,点击“网络和Internet选项”,选择“网络和共享中心”。

    3d1ee147d6bbd3d2241b5d6ca26f3b3d.png

    9c1b216366845e48bef6bf6724a0d6d7.png

    点击“更改高级共享设置”,选择“启用文件和打印机共享”。

    48740db08e13ff18bc050aafa7570207.png

    ed3c50d92faf1b729c5aecd656d25369.png

    点击“启用网络发现”,设置好以后,点击“保存更改”。

    5db0f154eb28c573f6144fd89d44a197.png

    文件夹共享设置

    1、打开电脑,在电脑里找到需要共享的文件夹,鼠标右击选择“属性”;如下图

    7364448fcb84b4b34b034fb2697de198.png

    2、选择后,会弹出文件夹属性小窗口,在小窗口上方有个“共享”直接点击;如下图

    9a81a74b5bec77c0ff359e21aacf8b49.png

    3、然后在打开的共享选项窗口界面中,选择点击“共享”;如下图

    14e747dfb68a6c010d0f63eb007bfc5e.png

    4、在共享界面选择用户,电脑默认会是系统高级用户,可以新建用户给予不同操作权限,选择好后点击下方“共享”;如下图

    d97cb1f9fc616e08f9ce7814ae52439c.png

    5、选择后,电脑系统会对文件夹开通共享,生成共享访问地址路径,我们选择复制路径后,就可以把分享给其它同事访问。如下图

    6182aa057596a8824313a09a655bb1bb.png

    这里大家需要注意,如果共享文件的电脑关机后,由于电脑网卡和硬盘都是不工作状态,所以会导致,其他用户电脑无法找到共享文件的IP地址,也就无法访问共享的文件夹了。

    如果文件需要长期共享的话,可以找公司运维同事,把共享的文件上创建在服务器上,服务器一般是长期运行的,就不会导致其他同事电脑无法正常访问共享文件了。

    访问的时候可以 开始--运行 \\192.168.0.11

    fde2e8854d554678346d2bdbeddb6e0a.png

    472004356585af610e676bd41fca91a7.png

    输入共享文件夹电脑系统登录用户名administrator 密码

    就可以访问了,两种方式一个IP地址访问,一个计算机名字访问。

    f41866c18a073f829ad9872b9d666d49.png

    8820eb60d55350a3b9f934343a466a64.png

    44ee04347eb497396d4518a5b25c1908.png

    也可以点击网络里面对方电脑计算机名字访问

    2163c78cad160df06116f12a0c029444.png

    1fe6c0e29a32f2de8c06d861081a7f59.png

    不是一个网段的也可以访问,只要对方开启了文件共享功能,局域网内三层交换机ping通

    32b09d4f0c3b2961a109f0dba14564cb.png

    a64e82921980a8c992363091a8671723.png

    c5b1ee18de25c44c62732acb8e6d53b7.png

    win10的文件夹设置

    9c185001b01cc1aed9c44022e8ec3d9f.png

    7eff9c75e2b0334533b4c6f30d3ce19f.png

    94146414fc228227cf1dfc8150b59fe1.png

    5351e195429cdcb702b69283a75fb597.png

    3f5aab3c6cbd3a7c7ad57addb5f9f1ef.png

    80b052fcd149630f396e3e5d2b1faa06.png

    632253ad4c472917a010e1f9ffa913f4.png

    展开全文
  • ?如何用vb程序设置文件夹权限

    千次阅读 2007-08-30 17:30:00
    关于怎样用vb程序对win2000和win2003NTFS格式的磁盘上的文件及文件夹进行用户权限操作,在论坛上发贴和在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 Long

    Private 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 Long

    Private 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为主。

    对于如何运用文件之间的处理,如,文本文件、WORDACCESSPPTEXCEL之间的互访与查询,我们将在下节中讲解。

    在本节开始之前,我们需要预备的知识点:
    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对象:Name

    1、复制文件

    1)、Office对象:FileCopy


    2)、FileSystemObject对象:CopyFile


    2、关闭文件
    Excel对象:Close方法
    Sub CloseWorkbook()

    ThisWorkbook.Close False


    End Sub

     

    1、文件重命名
    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语句:RmDir

    Shell语句

    FileSystemObject对象:DeleteFolder

    1、获取父文件夹名
    FileSystemObject对象:ParentFolder

    VBA Split函数

    2、文件夹重命名
    FileSystemObject对象:Folder.name

    VB语句:Name


    展开全文
  • 我在XP环境开发了一个程序,生成可执行文件,然后把需要控件放在同一个文件夹目录,这样即使用在没有安装VB软件XP系统上,程序也可以正常运行、调用控件。 现在这个东西放在WIN7上,一打开就提示“未预期...
  • 环境准备:程序中需要使用到PDF类库工具(Spire.PDF for .NET hotfix 6.5.15及以上版本)下载后,解压,将Bin文件夹下的dll文件添加引用到VS程序。如下效果: 1. 创建文件包时直接添加文件 C# using Spire.Pdf; ...
  • 可以派出在同一时间内,新增档案,通过简单拖放或由进口任何情况,它会打开不同方式,使其尽快这样做。您可以使档案比例年轻或年纪较大,或有针对性具体时间!使用newfiletime软件,就可以轻松修改...
  • 然后我大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教程有内容,弹框没了,解决问题。

    展开全文
  • PDF文件包(Portfolio)允许用户将多种不同类型...环境准备:程序中需要使用到PDF类库工具(Spire.PDF for .NET hotfix 6.5.15及以上版本)下载后,解压,将Bin文件夹下的dll文件添加引用到VS程序。如下效果: 1. 创
  • 1:新建安装部署项目 打开VS,点击新建项目,选择:其他项目类型->安装与部署->安装向导(安装项目也一样),然后点击确定.(详细见图) 此主题相关图片如下: 2:安装向导 关闭后打开安装向导,...文件,将你应用
  • 将此文件夹下的两个 DLL 文件 ( K3BOSPLUGINSADDIN.dll 和 K3GLParaConsolePlugin.dll ) ,在 CMD 命令行中用 RegSvr32 命令进行注册。 例如: K3 安装目录为 C:\ProgramFiles\Kingdee\K3ERP ...
  • shname.ZIP 获得Win9X文件的8.3文件名(2KB) 7,FileOP.ZIP 利用API函数对文件进行拷贝,移动,删除等操作(2KB) 8,RunShort.ZIP 自动利用与选中的文件相适应的程序打开文件(2KB) 9,clpdcopy.ZIP ...
  • 这个工具包是用VB编写 能简单实现打开exe文件文件夹 但是没有解决是在Win7下打开需要管理员权限才能打开的可执行文件。此工具包开源 希望各位大虾看后能给出修改意见 小弟在此谢过了!!!!!
  • VB制作小工具

    2012-07-19 11:03:11
    是保存在“模板”文件夹下。模板文件的文件名和文件内容中,可加入用户自己变量。变量格式是用两个“%”括起来。软件窗体中会把模板中所有出现变量名列出,供用户赋值。至于这功能用着方便不方便,您用过就...
  • vb,sql做理财系统

    2010-05-20 15:55:14
    6)进入"SQL 查询分析器"后,点击文件菜单下的"打开"菜单项,找到"餐饮管理系统"文件夹中的 "data"文件夹,点击"CYGLXT.sql"脚本,然后在数据库列表中选择"CYGLXT"数据库,按执行按钮, 即可生成"CYGLXT"数据库。 7)...
  • vb6.0 php,vb6.0安装教程

    2021-03-23 15:50:05
    vb6.0安装教程右击软件压缩包,选择解压到“VB6.0”打开visual basic 6.0文件夹。双击打开SETUP.EXE,然后选择运行程序。点击一步。选择接受协议,点击一步。输入产品ID号:111-111111,其他随便填,点击...
  • VB滚轮安装

    热门讨论 2019-08-25 15:22:18
    1.首先下载一个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制作播放器播放列表控件,十分漂亮,这个列表看上去像是早几年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'或类似名字的东东,...
  • 电脑-工具-文件夹选项-查看-去掉 隐藏受保护操作系统文件(推荐) 前面钩。然后选中 显示所有文件文件夹。-确定 2、找到了这个文件了吧。 3、用记事本打开。 4、看这句: multi(0)disk(0)rdisk(0)...
  • 2、创建一个类库,类库位置放在 DesktopModules文件夹下,然后在 VS2005里面刷新DesktopModules文件夹,会看到新加类库,相当于类库包含在DNN下。 3、为类库添加.ascx文件,因为类库不可以直接...
  • 方法二 : 将 VB6IDEMouseWheelAddin.dll 文件复制到 C:\WINDOWS\system32 文件夹下 然后点击 开始——运行打开运行对话框后,在里面输入: regsvr32 C:\WINDOWS\system32\VB6IDEMouseWheelAddin.dll 打开vb6.0...
  • 第1步:在vb官网上,下载vb安装包,将安装包内的文件解压出来。第2步:打开解压后的文件夹,然后找到SETUP文件。第3步:双击SETUP文件,选择一步。第4步:它会显示出最终的用户协议,我们仅仅需要点击同意,并进行...
  • 弹出对话框 msgbox [Prompt] [Buttons] [Title] 按下的按钮 msgbox 即将关机 1 000 1 弹出对话框等待用户选择或确定 弹出输入窗口 inputbox [Prompt] [Title] [Default] [X] [Y] 输入的内容 inputbox 请输入数字 ...

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 177
精华内容 70
关键字:

vb打开文件夹下的文件