无忧启动论坛

标题: 规范CDlinux文件大小写.vbs（解决部分CDlinux找不到安装位置导致启动失败问题） [打印本页]

作者: panet8888 时间: 2012-5-29 10:12
标题: 规范CDlinux文件大小写.vbs（解决部分CDlinux找不到安装位置导致启动失败问题）
相信不少TX在解开CDlinux的ISO部署到硬盘时都会遇到找不到安装位置而启动失败的问题，这很可能是因为用解压软件不当，解压出来的目录和文件名都是大写的，而CDlinux是区分大小写的，所以就启动不了了。所以高手们都推荐用7z解压。因不想安装7z，所以编了这么个小vbs脚本，可以规范CDlinux文件大小写。
需要的话，就动手吧：）

PS：因DOC部分不影响系统启动，为节省代码，就全改小写了。

规范CDlinux文件大小写.rar (764 Bytes, 下载次数: 190)

作者: ones 时间: 2012-5-29 17:34
打包时选择支持大小写就行了，不必都改为小写，你都改为小写，linux可是区分大小写的，可能cdlinux某些sh脚本就找不到那些原文件名为大写的文件了

作者: panet8888 时间: 2012-5-30 14:44
标题: 回复 #2 ones 的帖子
网上下载回来的，都打好包了。需要用7z来解压才会保留正确的大小写，winrar、uiso都不行。

我看过所有目录和文件，只有这么几个地方有大写的：CDlinux,bzImage,zh_TW和doc下几个说明，脚本里都会改成正确的大小写。

作者: l123456789 时间: 2012-5-31 14:46

下载备用,谢谢楼主!

作者: bfgxp 时间: 2012-6-1 16:22
不错，顶楼主。
字数补丁

作者: 2012huangyuxuan 时间: 2012-6-22 23:14
标题: 回复 #1 panet8888 的帖子
Linux对大小写是很严格的，比如程序参数 -E和-e都不一样，文件名Uni和uni都不一样，

作者: panet8888 时间: 2012-6-23 11:47
标题: 回复 #6 2012huangyuxuan 的帖子
那么请指出我写的这么脚本有什么不对的地方，我好改正

作者: 快雪时晴 时间: 2012-6-23 15:10
记下，遇到CDL不能启动找找这个原因

作者: homyang 时间: 2012-6-23 20:28
标题: 回复 #1 panet8888 的帖子
很好，老大能否写个通用的，既能改小写，也能改大写的

作者: 2012huangyuxuan 时间: 2012-6-24 19:32
标题: 回复 #7 panet8888 的帖子
您理解错了，我只是说Linux对大小写很严格，没说vbs有问题……

作者: panet8888 时间: 2012-6-24 22:25
标题: 回复 #9 homyang 的帖子
并不是全改成小写或大写了，而是按发行版本默认的大小写，部分还是兼有大小写的。

要全改成大或小写也很容易，简单改一下就行。

'----------------------------------------------
'Writed by panet8888,bbs.wuyou.net
Do
z = ""
z = InputBox("1则改为大写，2则改为小写","请选择要改写的类型")
If z="" Then
Wscript.Quit
Elseif z=1 or z=2 Then
Exit Do
End If
Loop

Set fso = CreateObject("Scripting.FilesystemObject")
Const MY_COMPUTER = &H10&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "选择CDlinux目录:"&vbNewLine&"▲▲▲▲▲▲▲▲", OPTIONS, strPath)

If objFolder Is Nothing Then Wscript.Quit

Set objFolderItem = objFolder.Self
objSourcePath = objFolderItem.Path

If z=1 Then
Change_U objSourcePath
ElseIf z=2 Then
Change_L objSourcePath
End If
Msgbox("Complete!")

Function Change_U(Path)

Set objSourceFolder=fso.GetFolder(Path)
objSourceFolder.Move(Replace(Path,objSourceFolder.Name,UCase(objSourceFolder.Name)))

Set Files=objSourceFolder.Files

For Each j in Files

j.Move(Replace(j.Path,j.Name,UCase(j.Name)))

Next

'历遍
Set objSourceSubFolder=objSourceFolder.SubFolders
For Each k in objSourceSubFolder
Change_U k.Path
Next

End Function

Function Change_L(Path)

Set objSourceFolder=fso.GetFolder(Path)
objSourceFolder.Move(Replace(Path,objSourceFolder.Name,LCase(objSourceFolder.Name)))

Set Files=objSourceFolder.Files

For Each j in Files

j.Move(Replace(j.Path,j.Name,LCase(j.Name)))

Next

'历遍
Set objSourceSubFolder=objSourceFolder.SubFolders
For Each k in objSourceSubFolder
Change_L k.Path
Next

End Function

作者: js01 时间: 2012-6-26 22:37
这个解本很好，支持，感谢分享。。

作者: 萨拉议长 时间: 2013-3-29 14:18
我也是启动的时候找不到安装位置，看看是不是这个原因

作者: jcgametest 时间: 2015-12-13 15:45
谢谢提供这个文件

作者: ggg44830 时间: 2020-2-19 10:50
shishi

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)