
首先在窗体中放置
Microsoft
Common
Dialog
Control,名称指定为
cdlg1。
然后放一个按钮,代码如下:
Private
Sub
Command1_Click()
Dim
fname
As
String
Dim
content
As
String
cdlg1ShowOpen
fname
=
cdlg1FileName
MsgBox
fname
Open
fname
For
Input
As
#1
Input
#1,
content
MsgBox
content
Close
#1
End
Sub
JFileChooser 就行, 参考以下帮助文档JFileChooser chooser = new JFileChooser();
FileNameExtensionFilter filter = new FileNameExtensionFilter(
"JPG & GIF Images", "jpg", "gif");
choosersetFileFilter(filter);
int returnVal = choosershowOpenDialog(parent);
if(returnVal == JFileChooserAPPROVE_OPTION) {
Systemoutprintln("You chose to open this file: " +
choosergetSelectedFile()getName());
}
Dim oDLG,i
Set oDLG = CreateObject("MSComDlgCommonDialog")
With oDLG
DialogTitle = "打开文件"
FilterIndex = 1
'flags = 512 '设置多选文件选项, 如不需要则删除此行
MaxFileSize = 255
ShowOpen '选择其他内容:ShowPrinter,ShowColor,ShowFont
'Color=ScreenActiveFormForeColor
'ShowColor
If FileName <> "" Then
OpenFileDlg = FileName
msgbox OpenFileDlg,,"你选择的文件名是:"
i=instrrev(OpenFileDlg,"\")
if i>0 then OpenFileDlg=left(OpenFileDlg,i-1)
msgbox OpenFileDlg,,"你选择的文件夹是:"
End If
End With
Set oDLG = Nothing
1 SystemDiagnosticsProcessGetCurrentProcess()MainModuleFileName
-获取模块的完整路径。
2SystemEnvironmentCurrentDirectory
-获取和设置当前目录(该进程从中启动的目录)的完全限定目录。
3SystemIODirectoryGetCurrentDirectory()
-获取应用程序的当前工作目录。这个不一定是程序从中启动的目录啊,
4SystemAppDomainCurrentDomainBaseDirectory
-获取程序的基目录。
5SystemAppDomainCurrentDomainSetupInformationApplicationBase
-获取和设置包括该应用程序的目录的名称。
6 SystemWindowsFormsApplicationStartupPath
-获取启动了应用程序的可执行文件的路径。效果和2、5一样。只是5返回的字符串后面多了一个"\"而已
7SystemWindowsFormsApplicationExecutablePath
-获取启动了应用程序的可执行文件的路径及文件名,效果和1一样。
对于Windows程序 和Web 应用程序来说,他们运行的路径是不一样的,所以关键是判断当前运行的程序是哪种程序于是我们可以使用如下的代码
string path = "";
if (SystemEnvironmentCurrentDirectory ==AppDomainCurrentDomainBaseDirectory)//Windows应用程序则相等
{
path = AppDomainCurrentDomainBaseDirectory;
}
else
{
path = AppDomainCurrentDomainBaseDirectory + "Bin\";
}
这样如果我们写了一个类库,类库中用到了AssemblyLoadFrom,由于是通用类库,所以可能用到Windows程序中也可能用到Web中,那么用上面的代码就很方便了
1、ServerMapPath
2、SystemWindowsFormsStartupPath
3、TypeAssemblyLocation
方法2可以应用于控制台应用程序,WinForm应用程序,Windows服务,方法1可以应用于Web应用程序,方法3都可以应用。
但方法3是加载应用程序的路径。如果是Web应用程序,取得的路径是:C:\WINDOWS\MicrosoftNET\Framework\v114322\Temporary ASPNET Files目录。所以Web项目还是使用ServerMapPath吧。否则建议使用方法2。如果自己新建类库。可以加入对SystemWindowsFormsStartupPath的引用后使用
我有一个xls文件,我要在页面中用gridview显示它。。。我现在又显示它的方法了
,就是要传个文件路径的参数进来。。。然后我就用
<asp:FileUpload
ID="FileUpload1"
runat="server"
/
整个控件来获取文件的路径,,
你错了,你获得路径也没用,你显示需要的是服务端的路径,那个控件里的路径是客户端路径,你拿到了也没有用的最多只能你自己本机测试的时候有用,(因为服务端和浏览器在同个电脑)但是实际上这种做法是错误的
要显示Excel文件有很多方式,
如果你有路径就能显示的话,你可以调用
SaveAs方法把文件存在一个临时你自己起的路径(这个是服务端的了),
然后你把这个路径拿来用就可以了
有两种方法:1)内嵌脚本, 2)使用扩展对象
使用内嵌脚本的方法,MSDN上已经有比较清楚的描述: Script Blocks Using msxsl:script。但对扩展对象的描述好像并不清晰。其实扩展对象比内嵌更为强大。举个例子,假设我们想知道自己所关心城市的天气,我们用一个xml来描述:
<xmlversion="10"encoding="utf-8" >
<china>
<city>Shanghai</city>
<city>Beijing</city>
</china>
在这里我们想知道上海和北京两地的天气,并希望通过一个XSLT来转换出如下结果:
<Report>
<Cityname="Shanghai">多云</City>
<Cityname="Beijing">小雨</City>
</Report>
天气预报是通过调用一个web服务得到的。可以想象,单纯的XSLT绝对没办法把这事简单搞定。不过通过扩展对象,这件事情就变得异常简单了。
首先我们创建一个扩展对象:
public class WeatherReport
{
public string GetReport(string city)
{
return "weather of " + city;
}
}
这个对象支持一个方法:根据城市名称返回其天气。为简单起见,我们返回"weather of"加城市名字。在具体的应用中可以去调用具体的web服务。
下面这段代码实现将结果输出到屏幕上:
private static void ShowWeather(string xmlFile, string xsltFile)
{
XmlDocument xmldoc = new XmlDocument();
xmldocLoad(xmlFile);
XmlDocument xsltDoc = new XmlDocument();
xsltDocLoad(xsltFile);
XslCompiledTransform xslt = new XslCompiledTransform();
xsltLoad(xsltDocCreateNavigator());
XmlTextWriter writer = new XmlTextWriter(ConsoleOut);
writerFormatting = FormattingIndented;
XsltArgumentList xsltArgList = new XsltArgumentList();
xsltArgListAddExtensionObject("urn:myxsltextension", new WeatherReport());
xsltTransform(xmldoc, xsltArgList, writer);
writerClose();
}
# 接收表单提交变量
$file=$_FILES['BtnPic'];
//print_r($_FILES);PRINT_R($file);
//PRINT_R($file);
//判断文件是否上传成功
if(is_uploaded_file($file['tmp_name'])){
//apache文件上传时临时储存路径,移动到自定义路径
$upload_file=$file['tmp_name'];
//print_r($upload_file);
$uploadpath = $_SERVER['DOCUMENT_ROOT']"/UploadFile/naotu/";//这块要注意一下路径
//下面是你服务器储存文件的路径,可以自定义
$move_to_file=$uploadpath$file['name'];
//判断是否移动成功
if (!is_dir($uploadpath)){
mkdir($uploadpath,0777,true);
}
if(move_uploaded_file($upload_file,$move_to_file)){
echo "上传文件成功";
}else{
echo "上传失败";
}
}else{
echo "上传失败请检查服务器。";
}
以上就是关于vb 选择文件 获取文件路径全部的内容,包括:vb 选择文件 获取文件路径、页面上通过文件选择器获取文件夹的物理路径、vbs 选择文件,获取文件路径,并彰显出来,非文件夹等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)