189 8069 5689
'把下面的目录改成你要遍历的目录
创新互联专注于蓬安网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供蓬安营销型网站建设，蓬安网站制作、蓬安网页设计、蓬安网站官网定制、微信平台小程序开发服务，打造蓬安网络公司原创品牌,更为您提供蓬安网站排名全网营销落地服务。
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir + "目录下的所有文件包括："
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo += Environment.NewLine + MyFile
Next
Me.RichTextBox1.Text =MyInfo
XPS文件格式经常在文件处理应用程序中使用。您可以在基于.NET Framework的应用程序中使用C＃或VB.NET以编程方式将XPS或OXPS转换为JPG或PNG图像。
让我们逐步介绍以下方案，以了解有关XPS转换的更多信息：
使用C＃或VB.NET将XPS，OXPS转换为JPG图像
使用C＃或VB.NET将XPS，OXPS转换为PNG图像
目前，.NET版Aspose.page升级到v20.10版，感兴趣的朋友可点击下载
使用C＃或VB.NET将XPS，OXPS转换为JPG图像
JPG文件之所以出名是因为它们在所有系统环境中均受支持。您可以使用C＃或VB.NET以编程方式将XPS或OXPS文件转换为JPG图像。对于XPS或OXPS到JPG图像的转换，应遵循以下步骤：
加载输入XPS或OXPS文件
初始化JpegSaveOptions对象
指定要渲染的SmoothingMode，Resolution和PageNumbers
保存输出的JPG图像
以下代码显示了如何使用C＃语言将XPS或OXPS转换为JPG图像：
// Input file
string inputFileName = dataDir + "input.xps";
//Output file
string outputFileName = dataDir + "XPStoImage_out.jpeg";
// Initialize XPS input stream
using (Stream xpsStream = File.Open(inputFileName, FileMode.Open, FileAccess.Read))
{
// Load XPS document form the stream
XpsDocument document = new XpsDocument(xpsStream, new XpsLoadOptions());
// or load XPS document directly from file. No xpsStream is needed then.
// XpsDocument document = new XpsDocument(inputFileName, new XpsLoadOptions());
// Initialize options object with necessary parameters.
JpegSaveOptions options = new JpegSaveOptions()
{
SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality,
Resolution = 300
};
// Create rendering device for JPG format
ImageDevice device = new ImageDevice();
document.Save(device, options);
// Iterate through document partitions (fixed documents, in XPS terms)
for (int i = 0; i device.Result.Length; i++) // Iterate through partition pages for (int j = 0; j device.Result[i].Length; j++) { // Initialize image output stream using (Stream imageStream = System.IO.File.Open(Path.GetDirectoryName(outputFileName) + Path.GetFileNameWithoutExtension(outputFileName) + "_" + (i + 1) + "_" + (j + 1) + Path.GetExtension(outputFileName), System.IO.FileMode.Create, System.IO.FileAccess.Write)) // Write image imageStream.Write(device.Result[i][j], 0, device.Result[i][j].Length); } }
使用C＃或VB.NET将XPS，OXPS转换为PNG图像
可能需要使用C＃或VB.NET和Aspose.Page for .NET API将XPS或OXPS文件转换为PNG。您需要按照以下步骤将XPS转换为PNG：
加载输入XPS或OXPS文件
初始化PngSaveOptions对象
设置图像分辨率或页面编号为渲染
保存输出的PNG图像
这段代码的问题是：
首先for each循环在files里查找文件对象，但是f变量声明为string了，无法让它获取对象；
然后file.copy的变量file没有任何声明，也没有初始化赋值等；
最后，整个for each循环里查找集合files的文件，由于初始化的循环计数器仍然按照最初设定的文件数目向后递增（文件地址），但是实际文件删除一部分，后续的文件位置就不能跟循环计数指针匹配了，所以默认为查找不到文件，将会报错。一般的做法时把复制和删除分别放在2次循环里，第一次只复制文件，第二次才去删除。
vb点虐 使用控件folderbrowserdialog1,在程序中:
'设置对话框中在树视图控件上显示的说明文本
me.folderbrowserdialog1.description
=
"请选择输出报表所在路径:"
'设置从其开始浏览的根文件夹
me.folderbrowserdialog1.selectedpath
=
"c:\"
if
me.folderbrowserdialog1.showdialog()
=
dialogresult.ok
then
'取得全路径（包含文件名）
reportpath1
=
system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)
'设定text显示文件名
txtreport1.text
=
reportpath1
setreportlist()
end
if
在setreportlist()中针对你所需要的文件进行操作等