VB中,如何获取路径"D:\redly\KIS.mdb"中的KIS这个文件名?

Open App.Path & "\in.txt" For Input As #1 Do While Not EOF(1)a=a+1 redim i(a) as pinfo Input #1, i(a)Loop close #1 加个判断Not EOF(1)，判断是不是到了文件的尾部 看看是不是你要的。

先调用SQLConfigDataSource函数，判断能否建立一个acces数据库。如果可以，就建立跟这个access数据库的连接，并执行sql。

ZOrder 方法可以改变控件排布顺序。ZOrder 的参数省略时视为0。参数为0时置顶、参数为1时置底。（因此，Image1 置顶方法就是 Image1.ZOrder 0，0 可以省略不写）需要注意的是，一个容器（窗体、PictureBox、Frame、ContainedControls 属性为True的 UserControl 等）中有三个图层与之关联：最底层是显示...

1、将“sum(报验数量) as 供货总数,count(报验数量) as 进货批次”修改为“*”Set Rs = conn.Execute("select * from 进货记录 where 供货商 like '%" & Text1.Text & "%' and 报验日期 between '%" & DTPicker1.Value & "%'and '%" & DTPicker1.Value & "%'")2、“%”号...

'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...

可以考虑一下：先用lenth数出它有几位，以便确定哪几个字要用到，然后用mid 取出相应的位数来进行。刚刚又看到一个类似的问题，将人民币值换成大写的可以给你参考一下：Dim Num_To_Chinese(10) As String Sub Init_Chinese()Num_To_Chinese(0) = "零"Num_To_Chinese(1) = "壹"Num_To_...

你看这个可不可以，似乎符合你的要求～（有错误的话记得告诉我）'查找与一个指定文件关联在一起的程序的文件名。Private Declare Function FindExecutable Lib "shell32.dll" _Alias "FindExecutableA" (ByVal lpFile As String, _ByVal lpDirectory As String, _ByVal lpResult As String) As Long ...

'[获取onclick事件中的链接地址的函数]Function GetLink(ByVal strHtml As String) As String Dim myMatch As Object Dim myMatches As Object Dim myRegExp As Object Set myRegExp = CreateObject("VBScript.RegExp")myRegExp.IgnoreCase = True myRegExp.Pattern = "\('(.+?)'\)"Set my...

Select Case Weekday(Now)Case vbMonday ' 星期一 Image1.Picture = LoadPicture(App.Path & "\1.jpg")Case vbTuesday ' 星期二 Image1.Picture = LoadPicture(App.Path & "\2.jpg")Case vbWednesday ' 星期三 Image1.Picture = LoadPicture(App.Path & "\3.jpg")Case vbThursday ' ...

"&"即可表示为字符连接,也可表示被引用的数值来源,但此时须有双&包夹,并加以双此号,这里就是后一种情况,即VB语言中的一种表述方式,即被引用的数据来源.它得出的结果是(A2中的值,B2中的值),请看以下示例:以单元格A2=3,单元格B2=4为例 (1),=A2&B2, 返回值:34 (2),=""&A2&","&...