Public Sub abc() Dim filename, inputstring As String Dim i As Integer Dim data i = 1 filename = "d:\WYKS
txt" '本列TXT文件放在D盤中 Open filename For Input Access Read As #1 Do While Not EOF(1) Line Input #1, inputstring '讀TXT文件一行 data = inputstring If i <> 1 Then Cells(i - 1, 1) = Mid(data, 11, 6) '截取從第11個字符后6個字符 Cells(i - 1, 2) = Mid(data, 19, 8) '截取從第19個字符后8個字符 Cells(i - 1, 3) = Mid(data, 29, 6) '截取從第29個字符后6個字符 Cells(i - 1, 4) = Mid(data, 37, 8) '截取從第37個字符后8個字符 End If i = i + 1 Loop Close #1 End Sub
其
FileName
屬性可以取到點擊確定之后的完整路徑地址,是帶文件名的,再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夾路徑。
其
InitialDirectory
屬性可以設置打開時默認指向的路徑。
string fileType =fileupload.FileName.Substring(fileupload.FileName.LastIndexOf("."));
string path = Server.MapPath("~/images/bg/") + "保存文件名" + fileType;
fileupload.SaveAs(path);
方法沒錯,看看是不是Server
MapPath("~/images/" + savefile)有問題,輸出看看值對不對
最可能的是引用的各個js的調用順序有誤,重新調整其引用順序