主题：咨询：关于inputbox
hkwanz
[专家分：10] 发布于 2009-04-09 11:05:00
怎样才能把一个地址或文件全名通过inputbox输入付给一个变量
然后通过这个地址或文件全名进行操作
如:
ziyu$=input"d:\vb\kill"
fso.createfolder(ziyu)
回复列表 （共3个回复）
沙发
artless [专家分：1490] 发布于 2009-04-09 15:20:00
生成地址或文件全名的操作不同，一个inputbox不能解决。
板凳
老大徒伤悲 [专家分：29120] 发布于 2009-04-09 21:56:00
ziyu$=input"d:\vb\kill"
有这样的语法？
ziyu$=inputbox("请输入正确的文件路径已经文件名，如不正确，后果自负")
……
3 楼
singlion [专家分：690] 发布于 2009-04-10 21:17:00
使用Common Dialog的ShoOpen可以获得一个文件名
使用下列代码可以获得文件夹名
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set spShell = CreateObject("Shell.Application")
Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS, "C:\Scripts")
Set spFolderItem = spFolder.Self
spPath = spFolderItem.Path
spPath = Replace(spPath, "\", "\")
Print spPath
并且支持新建文件夹
我来回复
您所在位置：