'显示打开文件夹对话框 With Application.FileDialog(msoFileDialogFolderPicker) .Show Then Exit Sub '未选择文件夹 strFolder = .SelectedItems() End With '获取文件夹中的所有文件列表 varFileList = fcnGetFileList(strFolder) If Not IsArray(varFileList) Then MsgBox "未找到文件", vbInform
用python黑框运行程序写入文件时闪退,或一行行运行到写入时提示8170数字. 经试验,为文件路径错误导致. with open("1.doc", "wb") as file: file.write(response.read()) 改为: with open("C:\\Users\\用户名\\Desktop\\1.doc", "wb") as file: file.write(response.read()) 写入文件即可